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Schluß like) Abtippfehlem! 


„Gompute mit“ erleichtert allen Anwendern Check 12 
die Eingabe der abgedruckten Programme und 
veröffentlicht den Checksummer für den GPG Check 13 
464/664. 

Lästige Tippfehler und endioses Suchen ent- Check 14 
fallen. Die Fehler können schon nach kurzer 

Zeit gefunden und beseitigt werden. Check 15 


Auch die Besitzer der Commodore-Gomputer Check 16 
werden in den nächsten Ausgaben nicht mehr 





auf die Checksummen verzichten müssen. Check 17 Zwei aktuelle Messeberich- 
= | te aus München und Frank- 
In dieser Ausgabe arbeiten wir furt auf S. 3 und 43. 


bei den Programmlistings zum FT 
erstenmal mit Checksummen. 
Aus technischen Gründen konn- 
ien die Commodore-Program- ® 
me noch nicht mit Checksum- FE 
men ausgedruckt werden. 


im nächsten Heft sind aber auch 
diese Programme mit Check- 
summen versehen und können 
wesentlich einfacher überprüft Pr 
werden. 
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Internationale Commodore 


Vom 17. bis 20. 10. fand auf dem Frankfurter Messegelände, die mittlerweile schon 5. Gom- 
modore Fachaussteliung statt. Das Redaktiens-Team vom Tronic-Verlag war natürlich - nach 
den Stationen Dortmund, Hannover, Köln - auch in Frankfurt live dabei. 


Bei einer Umfrage über den Ausstellungs- 
verlauf, die wir bei den wichtigsten Her- 
stellen und Händlern durchführten, 
konnten wir ein reges Publikumsinteresse 
feststellen. Nicht zuletzt deshalb, weil 
Commodore den Besuchern zahlreiche 
Gelegenheiten bot, sich mit den Compu- 
tern (C-64, C-128, PC-10, PC-20) ausein- 
ander zu setzen und dabei Spiele selbst zu 
testen, neue Anwender-Software kennen 
zu lernen, etc.. Weiterhin schuf der Veran- 
stalter ein attraktives Workshop-Angebot. 
Attraktiv deshalb, weil man den Besu- 
chern die Möglichkeit bot, sich mit der 
Materie „Computer“ intensiv zu beschäfti- 
gen. Einige Themen aus dem umfassen- 
den Workshop-Angebot: 

- Steuerung von Musik-Synthesizern 

mit C-128 
- Super Basic 7.0. 


DFÜ und neue Medien 
Ausnutzung der Grafik-Möglichkeiten 
des C-128 

Was sind Computer-Netzwerke? 

etc. 


Auf dem „Messe-Markt“ waren in Bezug 
auf Hardware von vornherein keine Neu- 
heiten zu erwarten. Nur im Zubehörbe- 
reich tat sich einiges, so wurde u. a. ein 
neuer Music-Compiler vorgestellt und die 
Computer Division John Hall präsentierte 
zahlreiche Verbesserungen / Neuerungen 
im Kabelanschluß-Bereich. 


Zusätzlich startete die Messeleitung eini- 
ge Aktionen speziell für die Computer- 
Freaks. U. a. wurden drei Mal pro Ausstel- 
lungstag Computer verlost und am Sonn- 
tag, dem letzten Messetag, hatte der vom 


Reges Publikumsinteresse war während der gesamten Messetage zu verzeichnen. 
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IN TERNATIONALE 


1610) 71710)»Yo);1-E 


‚FACHAUSSTELLUNG 


TER. PROGRAMME . 


Hessischen Rundfunk verpflichteie Mode- 
rator Martin Hecht, die Gelegenheit dem 
Publikum Biggi Lechtermann, die Leiterin 
der ZDF-Sendung „Computer-Gorner“ 
vorzustellen. 


Auch auf dem Gebiet der Software gab es 
zahlreiche Neuvorstellungen. Hier ist be- 
sonders das Programm „Turbo-Ass“ von 
Omikron zu erwähnen. 

Auf die gesamte Palette der Neuheiten 
bzw. Weiterentwicklungen werden wir in 
der nächsten Ausgabe von „Compute mit“ 
besonders eingehen. 


Fazit: Die 5. Commodore Fachausstellung 
bot besonders für die Gommodore-User 
einige Attraktionen. Deutlich war das Be- 
mühen der Messeleitung zu verspüren, 





report 


dem Publikum die Gelegenheit der Aus- 
einandersetzung mit dem Phänomen 
„Computer“ zu ermöglichen. Allgemein 
gesehen kann man diese Commodore 


Fachausstellung durchaus mit den Com- 


putertagen von Köln, Dortmund und Han- 
nover vergleichen. 





Interface-Gehäuse 





Die Fa. Wiesemann Mikrocomputertech- 
nik bietet ein neues Interface-Gehäuse 
Typ STG 1 an. Dieses Modell eignet sich 
hervorragend zum Einbau kleiner Interfa- 
ce-Schaltungen usw. direkt in einem Cen- 
tronics-kompatiblen Stecker, Das Gehäu- 
se wird komplett mit Steckereinsatz gelie- 
fert und bietet Platz für TTL-Schaltungen, 
kleinere Prozessorschaltungen und An- 
passungen aller Art. Es sind Aussparun- 
gen für Kabelaustritt hinten oder an bei- 
den Seiten sowie ein Loch zum Anschluß 
eines Steckernetzteils o.ä. vorhanden. Der 
Preis beträgt komplett mit Leergehäuse 
und Stecker 29,-- DM. 





Die Commodore Mailbox „COMBD“ erfreut 
sich immer größerer Beliebtheit und ist in 
Kürze zu einem der populärsten Briefkä- 
sten im Bundesgebiet geworden. Da trifft 
sich alles, was an Informationen und Kom- 
munikationen über Mikro-Anwendungen 
interessiert ist. Rufen Sie doch einfach an 
unter der Nummer: 


(0 69) 6635-191 


Das Team von „Compute mit“ hatte auf 
der 5. Frankfurter Commodore Fachaus- 
stellung Gelegenheit ein ausführliches 
Gespräch mit John Kellas, dem Ge- 
schäftsführer des englischen Software- 
hauses MASTERTRONIC zu führen. Durch 
dieses Gespräch erhielten wir einige wert- 
volle Informationen, die wir an dieser Stel- 
le an unsere Leser weitergeben: 





- Dasenglische Softwarehaus MASTER- 
TRONIG verkaufte 1985 allein auf dem 
europäischen Markt ca. 2,3 Mio. Spiel- 
kassetten. 


- In England konnte man 19% der 
Marktanteile erkämpfen und damit die 
führende Position einnehmen. 


- 1986 wird Mastertronic verstärkt in 
den. deutschen Software-(Spiele)- 
. markt einsteigen. Die Zieisetzung liegt 
bei 1 Mio. verkaufter Spielprogramme 
in der Bundesrepublik. 








[ 


In dieser Art werden die neuesten Mastertronic M.A.D. Games /mnächsten 


angebaien. 


Compute mib 





Mastertronic wird seine Produkte auch 
über etablierte deutsche Kaufhausket- 
ten anbieten. 


Zur Zeit umfaßt das Mastertronicange- 
bot ca. über 120 verschiedene Pro- 
gramme für Spectrum 48 K/Spectrum 
Plus, Schneider GPG 464, Commodore 
C-16, C-64, VC-20; MSX, Atari 600/ 
800. 


In den letzten Wochen brachte das 
englische Softwarehaus über 30 
Neuerscheinungen auf den Markt, da- 
runter allein 6 neue Spiele für den 
Commodore C-16. 


Neu in das Lieferprogramm werden 
MAD. Kassetten (Mastertronic’s 
Added Dimension) aufgenommen. Von 
dieser Version werden monatlich 
jeweils 2 neue Kassetten für die ein- 
zelnen Homecomputer-Systeme veröf- 
fentlicht. 











KRISEREEL leder. NH 


= 
AN EN Denenh 


Monataufdern deutschen Markt 
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programme 





Froggies Nightmare ist ein gelun- 
genes Remake des berühmten 
Spielhallenhits „Frogger“ für den 
unerweiterten VC-20. 


Das Programm besteht aus zwei Teilen. im 
ersten Teil werden die neuen Zeichen defi- 
niert. und das Spiel kurz beschrieben. Der 


oO F=36879:X#="FLEASE WAIT!! 
MARE'":GOTDIO 

FE 5 200 2 2022020202 0020202020222 07 

2 FRÜGGSIES#+#NIGHTMARE 

3 ALL RIGHTS RESERVED 

4 (C} BY FROGSOFT LTD 

5 LUTZ BLOMBERG VI/ES 

& *IN DEN WIESEN 38# 

7 »5270  GUMMERSBACH® 

DORINT KH HT HEN EN 
1 


il FORI=7158T071&48+F%: READA: XF=RIGHTE (XF$, 


RH=1T040: NEXT 


12 FOKEI „As NEXT: DATAZ6 ,24,90,189 
„24,90,189,189,189,90,0 
14 DATA24,189,152,126,60,126,60,217,1374,168,122,255,255,122,168,134 

15 DATA9S7,21,94,255,255,94,21,97,168,8,16,8,16,8,16,0,0,3,7,14,31,56,11 


12 DATAZS 


16 DATAO, 255,255,28,57, 127, 
6,102 


17 DATA243,249,0,192,224,0,120,28,254,255,0,255,127,56, 

206 

7 n 

18 DATA2Z1,243,0,255,755,252,57,115,231,2058,0,255,255,224,240, 
19 DATA112,224,192,128,0,0,0,0,16,38,254,1986,68,0,4,15 


8,88 


Ö FOEES2 „28: FOKES65 „28: FRINT "ERPEREbB 


zweite Teil enthält das eigentliche Haupt- 
programm. Sie selber werden als Frosch 
dargestellt, der am Rand einer vielbefah- 
renen. Straße hockt. Versuchen Sie nun 
mittels Ihres Joysticks und viel Fingerspit- 
zengefühl den Frosch unbeschadet über 
die Autobahn und die Bahntrasse zu lot- 
sen. Ist Ihnen das gelungen, wartet noch 
eine andere gefahrenvolle Aufgabe auf 
Sie: Überqueren Sie den mit Dünnsäure 


"P%=243: FÜRER 


verseuchten Fluß, indem Sie auf die vor- 
beischwimmenden Bäume und Schild- 
krötenschwärme hüpfen. Sind Sie dann 
auf die obere Baumreihe gelangt, istes Ih- 
nen und Ihrem Frosch vergönnt, die sich 
am oberen Bildrand befindlichen Fliegen 
abzuschlecken. Falls Sie alle drei Fliegen 
erwischt haben sollten, kommen Sie in 
das nächste Level. 


+239: PRINT" WERSETSTREETEEEN 7 FROGGIES NIGHT 





„ 


IZ)+LEFTECXF 


‚219,90,24,0 


:FRINT 'ERRERRETRF RR 


„13: PRINT "ERIK" Xt: FD 


[-n 


2,225 


226,198,0,255,255, 231,204, 152,63,127,0,255,255,156,20 


em 


32 = 


31,1,7,3,0,255,255,63,155 


G4 


F 7 T 


129,3,7,0,755,254 
„18,98,127,40,16,0,0,240,8 


20 DATA248,160,64,0,0,0,248,212,255,189,66,0,0,0,56,56,127,221,34 


21 DATAO,17,16,127,117,127 
„60,24 
22 


#3 





DATA&S5,297,62 
„214 
24 
30 FRINT"W":FOKEF-10,755: 
zZ1 FRINT "ER 
32 FPRINT'E PROUDLY" 
52 FRINT'’EREERIn.F SR DE RS 
34 
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60, 24,0,241,145,217, 92,223 


DATAO,62,115,94,115,63,0,0,0,251,207,121,207,255,0,0,0,252, 


DATAO,0,255,255,255,755 , 255, 255,255,755,0,0,0,42,84,0,0,0 
FOKEP, 1564: PRINT EB 


BE EN at et 


FORS=1T950: FORG=15T005TEP-5: FORJ=122TO2545TEFS: FORER— 


Sompube mib 


„120,48,0,2358,37,37, 


bJ 


Ir) 


3 


CA 


SS 


bu 


+ 


62 Far 


Zyül 


0,62,252,0,0 


„254,254,62,29,65,126,129,157,161,161,157,129,176,0,0,190,149,147 


0,0,0,0,0,0,0 
WEFRINT"ERMRRR 


Pe 


ESF GHI Ja | BRRRREEE | EHLMNONEN | ER BE 2 Ind ea" 


Z,J:NEXT:FOKEF-1,B 


programme 


FOFES46 , INT {RND (1)#7) : FRINT 'ERRERERIIRDRRRBRRFROUDLY"SNEXT:NEXT 
> PRINI SUR SEHE ER, a 
37 PRINT"! rar u en 
EB FR I MT H a” , ar SE Ds vr Pt 
39 FRINT"S* Fe a Er ET 





4 [9] F R I N T 11} » ar zn ern Ba a x ee, A 

A 1 FR 1 I Tr " FE Pr Pe Er SR BEER ER oe BE 1 | 

4 zn FR i N T n ta REN a er ee ‚aa r Sm" 5 
a PR I WT a p“ “ Fa BE" 1 Ba 1 en SE ee u 





44 FRINT'E- ee en tz OKEP-3, 0: BOSUB45: PRINT "BREI" 4 G5DTO48B 

45 FOFEP-1,15: FOKEF-2, 188: FORI=1STO0OSTEF-1: FORG=1T099: NEXTG 

45 POKEF-1,0: FÜRJ= ITOIS:NEXTI= FOKERF-1,I:NEXTI=:RETURN 

48 FRINT"H - - + mr" 

49 FRINT"A || | I ie 

50 PRINT II I I 1 H #4" 

Si PRINT #1 0 0 

52 FRINT'ERE iii AH RE ER 11": GOSUE45: FRINT"TIDLIIZIII IH" 

53 FOKEP-1,15: FORT=1TO1I: READFE&: FOKER-2Z, INT {Z5O+4#RND (0) 3: FDRJ=1T099: NEXT= FRINTF 
&3+:NEXT 

54 DATA" EN "RR HT TI LT NUN", UDO", OO" 

55 FOKEP-2,0:6081U845 

55 FORI=1TO800: NEXT: FRINT"W"SFOKEF , 37: POKEF-10,242 

S7 PRINTER] Id —ROGSGIES -IGHTMARE U I5T EINE -ROGGER “A- RIANTE FUER DEN 
zo" 


S8 FRINT’ER #IE SPIELEN MIT DEM  'DYSTICK UND MUESSEN VERSUCHEN, —ROSBIE . 
59 FRINT"fA HEIL LEBER DEN "BRLOURS ZU LOTSEN. 4EUHTEN #IE AUF -HRE  +EI 
Te 


80 FOKEP-1,15:FORI=145T0O255STEP. 1: POKEF-2Z, Te FOKER-3, Is FORKEF-4,I: NEXT 

&1 FORT= ı1T04: FÜREF-IT,0:NEXTıF$="Qı ITTE | ASTE DRUECHKEN "FOKE197, 64 

62 F#=RIGHTE (FE, ZU)4LEFTEIFE, 1}: IFFPEEK (197 I< 364607070 

63 FRENT " BRSEISISTIETETe FRRRRRETEE "FE; FORI=1TD5S0:NEXT:GOTO&Z 

70 FOEKEF-10,240 

71 FRINT"W"=:FRINT"EBI BITTE LADEN SIE NUN DEN 2. TEIL VON FROGGIES NIGHT 
MARE ! : 

72 NEW 





Go REM IC) BY FROSSOFT LTD. 

1 vVO=8108: J=37151:J0=J+3 
:2 F=e36879: F%=307 20: LV=30: FRINT"D" 

3 FOKEF,BrPOKER-10,242: IFPEEK (J} =42 THENFOKE546 „INTIRND(II#B) 5 FRINT"SIeEEN | ATTE 


DRUECKEN #IE":GOTOS 


FOKEF-1,19: 60105 
FRINT" DIE #TOF-| ASTE AUF -„HRER —ATASETTE !":60T05 
FRINT'"LEREREN #LES DKAY? —ANN  BBRUECKE DEN A-IREBN- BO IUTTON Eıl® 
IFFEEK (J}« >94 THENFOKES4S „ INT IRND (1) #8) : POKEF-2,250+ un INT{RBSD(13#433: 60705 
POKEF-2,O: FÜKEP „104: FOKEF- 10,255: FOKEF+2,150 

FRINT"R"-VE=VO 

FRINT'EIEE 

FRINTFREE 

FRINTTEEEG ED 

FRINT'ERRISERHIET 
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26 
983 
97 


105 


programme 








ERINT H 1 4141 Et L i 11 1 Ä i 1 ni. Ze a nn 

PRINT rg 2 es u " N 

FR I MT -- u JE -=BFGHE JH“ te u r Denn MNOSE"-" 
PRINT" +: POKEB185 „30: POKEBLBS+FZ „4 

REMEMBER TOD EUY THE NEW FRÜGSOFT GAMES! TEL. +02261/66152 


FOREN 


Age" w“ Eu ap "SICK u "BPB""""LoR [3 
H+r= a BE" u rer] 727720 u T | u Cr! AT” ri Be ie Le 02 | 


Ce" UVWUWWARNAAR w" 

D3='g YYY YYıYr vr ke 

Er="3 [LEEL [EEIE 8" 

FORI=150TOSBSTEP-1: POKEP+2, I: POKEP-3 , 1490: NEXT: POKEF-2 „38: POKEF-3 , 01 TI&="6000 
GOFO10& 

PRINT 'ERERETSE" DE" a" ED EI CH A rar; 


FOKEVE , YO: POFEVE+FZ „YF3 IFVK<ZF7BS3ERNDYO=SZTHENSOO 
FOKEJO, 127: Ji=PEEK (332 J2=FEEK (J0-2) 8: IFSC=25OTHENGOTOTFOO 


107 IFtLVY-VAL{TIFIIS=OGOTOSCO 

108 IFJi<{10060TOS0O0 

109 IFJi1=11OTHENVII=VE-1:U=-4:50T0115 
iilü IFJI=122THENVESYK-22: U=2:60T0115 


111 
1i2 


IFJZ=1 19 THENVE=VE+1: U=3:6GOT0115 
IFJ1=128ANDJ2=247 THENU=3: 60TD116 


113 IFdJ1=126ANDI2Z=2ZA7THENU=2: GOTO11& 


114 


IFJ1=11BANDVE<BO7T&THENVE=SVE+HZZ: U=2 


115 FOKEF-2,254: POKEP-5 „254: POKEFP-2, 245: POKEF-5, 178: FOKEP-2, 0: FOKER-5 ,0: IFVK< 774 
&60T0500 

11& SH=0: YO=FEEK (UK) = VP=FEEK (VK+F%) = IFYO>SANDYO<2460T0500 

117 IFYO>ZSANDYOXZ2BGOTOBOO 

118 HO=FEEK (VK+1) :HK=PEEK (VK-1) : IFHO>SANDHO< Z40RKHK >SANDHEK< Z4G0T0500 

119 FOKEVK,U: FOKEVE+FY „5: SH=0 

200 B$=RIGHTF(B$,1)+LEFT$(BF,30) 


201 


C$=RIGHT# (C# „22) + LEFTFÜCH,?) 


202 DE=RIGEHTFIDF,DI+LEFTE (DE, 223 
203 E#=RIGHTE (E$ „237 + LEFTE& (E£,1} 
204 AF=RIGCHTF(AF ZI +HLEFTFEAF,1) 
217 FRINT'REREnR" LV-VAL<RIGHTEF(TIS, ZI) "I ":GOTO98 


300 
301 


CS 


SH=SH+13 IFSHZZTHENIFVKF77B9THENPOKEJ , 126: 56070116 e 
IFSHXZTHENIFVK>77&BTHENFOEKEVE-22 „5: POREYK-ZFH FR „2: POKEVE „2: FOKEVK+FZ ,5: 60103 


302 FÜFEJI,128:6G0T011& 

303 IFFEEE (VK-44) =05THENSC=SC+H100: 6070307 

304 IFFEEE {VE-44)=1THENSC=SC+HS0: GOTO307 

>05 FOKEF-3,245: FOKEF-3,0 

+0 FOKEVKE-22,32: FOKEVE „U: 5OT0OF78B 

>07 FOKEF-3,245: FÜKEF-3,0: FOKEVE-44 , 32: POKEVE-22, 52: B6UT0978 


500 
501 


FOKEVE 2: FORH=ZTODS: POKEVE+FA,H 
FOKEF-2, 177+ (H*10) 2: FORT=15STDOSTEPF-1:FORI=1 T022: NEXTI: FOKEF-1,0 


s0o2 FORR= 1105: NEXTR= FOKEF-1,T=NEXTT: NEXTH: FOKEF-1 ,15: FOKEF- 2,0 
504 FOEES44A,INTIRNDItIIKTI: PRINT" ERIERRTESPICMEERT SAME OVERI" 
505 IFSC >O0RHI >OTHENFRINT "ERBRBBISSCORE = "5; HI+SC 
05 Ji=FEEKtJ) 2 IFJLZLIOOTHENPOKEJ „126: RUN 
507 GOTOS04 
700 FORI=1T0255: FPOKER-3, Is NEXT: FOKEPF-3 ,0: VERrVD: LVSLV-5: TI$="000000° : HI=HI+SC: SCH 
0:G0T08 
800 IFVk=77900RVK=778B90RVE=7833THENSOOG 


Bol 


IFYO>Z3SANDYOZZF7THENFOKEVE „U: FOEEVYE+FZ „5: VE=SVE+1 


Bo2Z IFYO=27THENFOKEVK „U: FOKEVK+FZ „5: VE=VK-1 “ 
BOS GDTO200 ; 
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programme 





öße des Bildschirms in der Länge. Achtung: x kann nur eine gerade Zahl 


POKE 36867,x Dieser Befehl verändert die Gr 
zwischen 2 und 46 sein! 





POKE 36864,x Der Bildschirm wird nach rechts oder links verschoben. X kann eine Zahl zwischen 0 und 255 sein 
(12 ist normal). 


POKE 36865,x Der Bildschirm wird nach oben oder unten verschoben. Hierbei kann x ebenfalls einen Wert zwischen 
0 und 255 annehmen. Normal ist hier die Zahl 38. 


POKE 36979,x Dieser Befehl verkleinert oder vergrößert den Bildschirm und hat zur Folge, daß der Computer keine Da- 
ten mehr annimmt, Auch hier kann für x wieder eine Zahl von 0 bis 255 stehen. 

POKE 36895,x Eine Farbveränderung des Bildschirms und des Bildschirmrahmens wird vorgenommen, Er erreicht das 
gleiche wie POKE 36879,x. Der Wert x geht wieder von 0 bis 259. 

POKE 36885,x Die Ausgangsbasis für selbstdefinierte Zeichen wirdangegeben.Der x-Wertisthier begrenztvon 252 bis 
255, ; 


























Spielaufgabe - Beschreibung: 


Sie betätigen sich als Priester und Tempelwächter. Ihr Domizil sprich Tempel 
wird von Dämonen heimgesucht. Als Tempelwächter stehen Ihnen Wurfge- 
schosse zur Verfügung mit deren Hilfe Sie die Dämonen zerstören können. 
Auch die drei geheiligten Amphoren, die Siein waagerechter und senkrechter 
Form anordnen müssen, können als Wurfgeschosse benutzt werden. 






Spielsteuerung: 


Nachdem der Computer den ersten Teil geladen hat, folgt die Spielbeschrei- 
bung und das Laden des 2. Programmteils, anschließend erscheint das Titel- 
bild auf dem Bildschirm. Nach dem Laden des 3. Programmteils baut der 
Computer dann das Screen auf, 
Der Priester wird per Joystick gesteuert. Wenn man beispielsweise einen 
Stein nach links werfen will, so muß der Priester rechts neben den Stein po- 
stiert, der Joystick nach links bewegt und gleichzeitig die Feuertaste betätigt 
werden. Der Stein fliegt dann so weit nach links, bis er gegen einen anderen ° 
Stein oder eine Amphore prallt, falls der.Stein mit einem Dämon kollidiert, so 
© zerstört er diesen und setzt dann seinen Weg fort. 
4 Die Dämonen bewegen sich durch Zufallssieuerung. Wenn ihnen ein Stein im 
Weg steht, so wird dieser zerstört. Der Spieler selbst kann einen Stein nur 
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dann zerstören, wenn sich hinter diesem 
ein weiterer Stein oder eine Amphore be- 
findet. Um diesen Vorgang zu realisieren: 
Feuerknopf betätigen und gleichzeitig den 
Joystick in die Richtung des zu zerstören- 
| den Steines bewegen. 

‘Die Amphoren ordnet man folgenderma- 
Ben: Man bewegt die ersten zwei Ampho- 


ren so, daß diese nebeneinander waage- 


recht oder senkrecht angeordnet werden. 
Die dritte Amphore muß dann ebenfalls in 
die gleiche Position gebracht werden. 


Achtung! - nur wenn die gesamten Am- 
phoren in der gleichen Position angeord- 
net sind, gelangt man in die nächste Run- 


programme 


de, deren Schwierigkeitsgrad natürlich 

anspruchsvoller ist. 

PS: Ein Männchen verliert man im Falle ei- 

ner Kollision mit einem der Dämonen. 

- Nach der Beendigung einer Runde 
muß eine Taste betätigt werden, erst 
dann gelangt man in den nächst 
schwierigeren Level. 


[u au Be BE 2 2 2 2 2 2 2.2 2.202 2.2.2.2 2 2.2 202 212.22 2.2 2.25 


10 FRINT' LH EHER EHE 

il FOKE354889,,242 

12 FRINT"?7/19785 BY all ne 

14 PRINT" oRITER: * 

15 FOEEA4&,, 10: FRINT'"& IOLGER NTERHALT": FOREA45 „U: FRINT"E" 
18 FRINT"EERFPRUECKE EINE Hl ASTER":FOFKEI1FB,O:WAITIPER,I 

z& PRINT'LERHU EIST EIN "RIESTER IN EINEM | EMFEL." 


#2 FRINT"ERN DEN |EMPEL HABEN SICH -AEMONEN EINGE- NISTET,WELCHE U VER-" 

24 FRINT"OWTREIBEN MUSST. A -U,RWENN "U MIT DEN -AEMONEN KOLLIDIERST ‚ST 
ERBEN" s 

2& FRINT" MUSST,KANNST U DIE -AEMONEN NUR MIT DEN HERUM-" 

ZB FRINT" LIEGENDEN #TEINEN ZERBUETSCHEN. ® 

30 FRINT" —35 KANNST -U TUN, INDEM -U DICH NEBEN EINEN #TEIN STELLST" 

32 FRINT" UND -EUER DRUECKST.":FRINT"Rg} ASTER":FOKEIFB,O:WAITITB,1 

34 FRINT"LE *USSERDEM MUSST U NOCH DEN #TEUER- KENUEFFEL IN DIE" 

355 FRINT"B_ICHTUNG DRUECKEN,IN DIE -U DEN #TEIN WERFEN WILLST. " 

38 PRINT"EHER #TEIN FLIEGT SQLANGE,BIS ER GEGEN EINEN !|EGENSTAND FRAL 
LT." 

#0 FRINT"HISENN DER #TEIN EINEN —REMON TRIFFT,TUETET ER DIESEN LND FLIEGT DANN 
WEITER. 

41 PRINT" CENN HINTER DEM #TEIN „DEN —U WERFEN WILLST „EIN |ESENSTAND IST," 

42 FRINT"BZERSTOERST -U DEN $TEIN. " 


42 PRINT’ ASTER": FOKE178,C: WAIT1FB,1 


44 FRINT"LIBH-OCH -U MUSST NICHT NUR DIE -AEMONEN AUS -EINEM | EMFEL VER"; 
46 PRINT"IH-TREIBEN ‚SONDERN MUSST AUSSERDEM NOCH DIE HEILIGEN SMFHOREN" : 
48 PRINT"M-EINES |OTTES SENK- ODER WAAGERECHT IN EINER BESTIMMTEN +EIT 
AM "z 
50 FRINT"#NFANG"=SFRINT" ZWEI "INUTEN) ORDNEN. ":PRINT"TBIC-S SIND 3 #MFHOREN) " 
51 PRINT"BBEE| ASTE":FOKE1PB,O:WAIT19B, 1: FRINT"R" 
52 FRINT" CENN —J ABER DIE LETZTE DER DREI “MEHOREN IN DIE -ITTE DER 
BEIDEN" 
56 FRINT" ERSTEN WIRFST {-AS FUNKTIONIERT- GENAUSO WIE BEI DEN  #TEI 
NEN) r 18 
58 FRINT" UND DIE #MFHDREN DAMIT SENK-GDER WAAGE -RECHT ORDNEST,MUSST -U V 
ON OBEN" | 
&0 FRINT" (SENKRECHT)IODER VON DER #EITE(WAAGERECHT)> NOCH EINMAL DABEGEN-. DRUE 
CKEN. " 

3 FRINT’EEE| ASTEM": FOKE198,0:WAITL9FB,1:PRINT"L" 
75 PRINF"@ 'E WEITER U IM ®#FIEL KOMMST,WIRD DIE #NZAHL DER -AEMONE BRD 
ESSER," 
77 FRINT" IHRE jESCHWINDISKEIT HDEHER,UND DIE +EIT ZUM TRDNEN GERI 


NGER." 


77 FRINT"E *BER JETZT VIEL #FASS BEI ")EMPEL'." 
BO FRINT"BBE-OCHMALCT/ND " 
21 GETA£: IFA#="J" THENRUN HZ .ı* WRITER= 
82 IFAF="N" THENS4 IE ı#* HOLGER 
83 607081 94 ı= UNTERHALT 
94 FOKESF1,1321:POKE19I8,1:END 95 :* EINE VARIANTE 
FI EREHHEERÄRHH TINTEN 94h :* DES SPIELES 
F1 :* TEMPEL * GT E* "FENGO’ 
“ 
GSompube mib 
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# 93 :*FUER DIE GRUND-# 
# 57 :* VERSION DES # 
* „1lcoo * VC-20 * 
* 101 # 7/1985 BY * 
* 102 # RÜBBLE GAMES + 
* 104 SRH HENRI 


programme 





DO REM FRE 

1 REM * TEMPEL .* 

2 REM * BY * 

ZREM * HOÜLGER * 

4 REM * UNTERHALT * 

5 REM ERFUHR 

& FOKES6 „28: FOKES2,28 

7 H£ (0) =" FORT=1T04:H$ (TI =H$ (T-1) +" "NEXT 

R 6=34A974: POKEG+A , 15: D=25% 

? FORT=7424707431:FOKET ,O: NEXT 112 DATAO,1,3,2,2,2,2,2 

10 I=I+1:READA: IFA=-1THENGOTUI160 114 DATA195,4,255,148,148,148,1483,148 
12 FOKE7157+1,A:60T010 11& DATA12,120,255,165,165,165,165,165 
72 REM FRIESTER i18 DATA7,249,41,41,41,41,41,41 

74 DATAS6&,124,214,254,186,1978,124,56 120 DATA202,74,74,74,74,74,74,74 

76 REM DAEMON 122 DATA96,I6,76,765,96,76,76,7& 

78 DATA186,124,214,254,198,1864,124,58 124 DATA2,2,2,2,255,8,63,224 

80 REM AMPHORE 126 DATA148,148,149,148,255,0,255,0 
2 DATAS6,16,59,125,126,124,56,16 128 DATA155,155,155,155,255,0,255,0 
84 REM AFFEL 130 DATA41,41,41,62,192,79,240,31 
B6& DATAS2,22,121,241,241,241,113,62 132 DATA74,79,240,7,120,135,248,255 
88 REM STEIN 1,2,53,4 134 DATA224,32,120,136,653,192,0,255 
36 DATA126,130,145,161,133,165,129,127 1265 REM SONNE 

32 DATA66,174,145,97,69,165,137,119 138 DATA?B,62,127,127,127,62,2B,0 
94 DATAO,0,44,84,68,36,24,0 140 REM WOLKE 

96 DATA1L25,130,145,161,133,165,129,127 142 DATAO,28,35,65,64,32,31,0 

98 REM EXFLDSION 144 DATAi12,136,14,1,1,34,220,0 

97 DATA1L32,72,24,66,16,538,76,2 145 REM HORIZUNT 

100 REM TEMPEL 148 DATAO,0,0,0,255,0,0,255 

102 DATAO,0,0,0,0,5,17,48 150 REM STRAUCH : 

104 DATAG,0,0,7,248,0,172,48 152 DATAO,8?,74,42,255,56,16,255,-1 
1056 DATAO,1,62,192,0,0,0,0 160 : Fe 
108 DATAO,240,12,3,0,0,1,62 162 REM VORFROGRAMM 

110 DATAO,0,0,0,192,224,224,95 154 :FOKE36869 , 255: FRINT"E” 

1685 T$(0)=" "+ $="DDDDDEDDDDDDDDDDDDDDDD" = TS=LF 


166 T$t(1)="DDD DDD D DDD DD D ":T$(Zij="D D DDDDD bp Do“ 

168 T$(H)=" D DDD DDDEDBDD ":T$t4)="D DD DD BD 

170 T£(5)="D DDD UD DD DDD": TF(H)="W"+L$ 

174 Gf="MIJKLMERENEERNDFORSEHEREERITUVWAY" 

176 FORT=0T08: T$=T$+T& (CT) NEXT ; 

180 FORkA=4TDOSTEF-1:D-D-5;: FOKEG,D 

182 PRINT"Ü" 5: FORT=ATDSS : PRINT"O"T$ CT) :NEXTT:FORY=1T0590: NEXTY,A 

185 FORT=0T04: D=D-5: POKEGB ,D: PRINTH& (T) T$: FORY=1 T0500: NEXTY, T3FDKEG,O 

190 FRINT"WFUER DEN VC-Z0O GRUNDV.KBNRITER: H. UNTERHALT" 

192 FRINT'"EIIBREY WOBBLE GAMESEI" :1_IS=-"BREEGERLeEEBEBaEBaeaaae" :FRINTLIFSZFRINT"E" 


194 FRINT"EIEWOBBLE SAMES FRESENTS: ":FOKE1FB,0:WAIT198,4:PRINT"IE"SPC(7)6$ 
195 PRINT"Rl’ TEMPEL 'IS LOADINGIS" 
176 ELR:FOKESS ‚30: POKES2 , 30: POKEs531 ,131:POKE198,1: END 





7 D$="At Age" ge" MT: A%=M: BE="aR":J=371512 08" Ge" BD": SEi2)="E":Be200 

10 S$ (A) =L$:3$8 (3) =" F"sDIMHSELTI CHF (O) = ER" : FORT=1TOL7EHFADI=HSCT-1I HUB ENEXTE 
Z=100 i - 

11 L4=3: E%=5: VA=0: T%=200 E 

12 A=36869: FOKER „255: POKEA+10,27: F=30720: POKEA+9, 15: 0=7977:H=9; I=11: T18="000000° 
15 V%4=0: WeO: Dad: Y=0 

14 FRINT'E EZ ach TIELM KEN NOFERS 3J@*,BJ11IFUVRÄYI 22ER 
3113" 
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_Programme 


15 FORT=1T04: READY, E,S: FORG=VTOBSTEPS: FOKEO, 7: FOKEG+F „5: NEXTOG,T: RESTORE: B0T025 
1B DATA7745,.7787,1,.7767 ,8185,272,5185,8164,-1,81564,7736,-22 

20 FORT=1TDZIX ; 

22 N=INT {RND (1) #*4373+7746: IFFEEK {NIS >32 THENZE 

22 FOKEN,4: FOKEN+F,ö:NEXT:GOTUSO 

25 FORT=1TOM=N=INT (RND (1) #17) +0: 5=INT {RND{1}%*19) +1: FRINTH& {N TAB<SI DE: HITI =NE IT 
I=5 

2& BtT)=77&6B+22H#N+5: NEXT PRINTHE CHI TABtIIAF 

27 FORT=1T0S 

28 N=INT (RND(13#173+0: 5=1INT {RNB (1) #19) +1: IFPEEE (776B+22#N+5) X >IZTHENZB 

29 PRINTH#& {N} TAB (5) 63: NEXT: GOTOZO 

So FOKET+3,127:R=(FEEK (J+1) ANDIZOI + {PEER UND AND28I = FOREJ+3 „255: F=FEEK (J) ANDFZEF=SF 
+1 


32 IFVALTTISY>=TATHENIV175 46 GOTO3O 

34 IFF=33THENF=2 50 D=-1:W=-22: 0ONFGOTD76,50,122 
36 IFR=152THENSO 52 Del: W=e22: 00FGOT079,50,122 
38 IFR=14BTHENS? 54 W=-1:Y=-1:0NFGEGTO70,60,122 
40 IFR=140THENS4 56 W=1:Y=1:DONFGOTD70,80,122 

42 IFR=ZBTHENS& &0 F=FEEK (DO+W) : IFP=1THENESO 

44 IFMzZ>OTHENVZ=VEr1: IFVA=BATHENIZO 62 IFF<SSZTHENAS 


64 FOKEA+6 „200: FRINTH& (H) TAB (II L$EH=H+D: I=1+Y: O=0+W: FRINTHF CHI TAB DAFT FOKEA+S,O 
66 We0:D=0: Y=0: GOTD44 
70 K1=0+W: K2=D+4#2: FI=PEEK (K1}  FZ=SPEEK {K2 : IFFIX >A4ANDPIS FZTHENGS 


71 IFFi=ZANDPZ=40RP1=ZANDPF2=7THENAS 


72 IFP2=40RF2=7ORFZ=ZANDP IS -2THENBO 753 IFFZ=1THENT? 78 IFFi=TTHENWS=SGF 
73 IFFI=2THENWS=G$: GOTOBS Zee Er Zr BONDES 
74 IFFZ=Z2THENWE=S$ (1): GOTOBS a a 


80 FOREA+8, 200: FORT=4T08: POKEK1,T: FORR=1T010: NEXTE, T: FOKEK1 ,32: FOKEA+B, 0: FZ=F%+1 
: BOTDA4 

BS C=H+D:E=I+rY 

B6 G=B-5: FOKEA+& ,G:Ki=K1+W: Pi=PEEK (K1): IFPI=1THENI1OO 

87 IFPI<>S2THENG=200: FOREA+6 ,0: GOTO110 

E93 PRINTH& (CI TAB (E)L$2 E=E+Yıl=C+De FRINTH& {03 TAB (E) WE: GOTOR& 

100 FOKEA+& „0: POKEA+B , 200: FOKEK1 ,8: FORT=1TOM: IFO(T)=KiTHEN103 

162 NEXT 

105 POKEA+B,0 

104 FORV=TTOMEH(WISHLV+H1IE0(W)=DAV+L) EIWI=ICV+L) a NEXTVEMEM-LEFZ=FZ+10:FOKER1,32 
:G0T087 : 


119 IFFZ=4THENdGS 121 6070135 

112 IFFI=ZANDFPEEK (Kir) =PANDWNEF=SGFTHENI1G& 122 F=FEER {DO )+W} : IFF=S6ÖTHENGOTO154 
114 SOTDS4 12% IFP=A4THENL&O 

120 L=L+1: IFL=SM+IORL>M+LTHENL=1 =4 IFFS FSZTHENV%=0:50T088& 


125 POREA+S, 200: PRINTH&CHULIYTARETILI DL #EHEL ISHeL JADE ICLITISLI+VEDIL}=DiLIrN 
128 FRINTH#&CHÄLI I TARBTICLII DES FOREA+HT „O0: V%=0: SOTO6O4 
135 F=3:N=INT {RND (13#43 +1: DNNSDTOSOG,52,94,56 

150 FOKERA+B,Z00: FOKEO,„S2: FÜREO+W,„58: FORT=1TO100: NEXT: FOREA+G , 52: 5070170 

154 FOREAR+B,200: PDEEO (L} 32: FOKED {LI +W, 8: FORT=1T0O100: NEXT: FOKREA+B „32: 5070170 
160 FOKEA+B, 200: FOKEO (LI +N 32: FDEEATB , 0: F=32: 5070124 

169 ZE=ZE-10:6070174 

170 FRINTHS (CO) "BBBCRASH" 

172 LZ=L%-1:FRINT"BLEBEN: "LZ:PRINT"BPUNETE:Z "PX: IFLZ=0THENIRO 

174 FOFKE19B,0:WAIT19B,1:M=A%: GOTDIZ 


175 FRINTHE OO "BS7EIT UMI":GOTDITE - "158 IFAZ=PTHENIFT 
iB0 FRINT"INEUESE SFIELIT/NI" 170 A#=A%+1:G0T0172 
182? FOKE1F8,0:WAITI1FS,1: IFFEEK (177) =Z0 THENRUN 172 IFBZ=ZTHEN FA 
185 END 174 "R%=E%X-1: 5070172 
185 FRINTHE (O0) "WEESESCHAFFT"eLR=L%+H1 1976 T%A=T7-10:50T0172 
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Als Jumping Joe müssen Sie durch 6 ver- 
schiedene Runden „iumpen“ und in jeder 
dieser Spielrunden so viel Punkte wie 
möglich einsammeln. Die Punkte erhalten 
Sie, indem Sie mehrere kleine Zahlen auf- 


sammeln, für die es eine Gesamtpunkt- 
zahl von 500 Punkten gibt. In eine nächste 
Spielrunde gelangen Sie, wenn Sie es ge- 
schafft haben, die acht auf dem Spielfeld 
verteilten Schlüssel aufzunehmen. Sie 

werden jetzt sicherlich 





Während Sie in den einzelnen. Spielrun- 
den die Gegenstände einsammeln, wer- 
den Sie von einem unsichtbarem Gegner 
verfolgt, der versucht, Sie zu töten. 


Seien Sie also auf der Hut, denn Sie ha- 





100 
101 
iGz 
10% 
104 
103 
1085 
107 
ioS 
10% 
ilG 
i11 
112 
113 
114 
115 
11& 
117 
118 
119 
120 

























REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


KERN HR HH HR FR 
JUMFING JDE 
VON 
CHRISTIAN RASKOB- 


D-55651 GROSSLITTGEN 


Ei u SE Ze Ze 22 Ze Zu Ze; 
Pe Se SE SE SE Zu Ze Ze Zu Ze 


PER EEE Se En 2 2 200 2 2 20% 52.2 2.0 0200 


COLORO,1:COLOR4,1:CLR:FORTL=1T03:FOKESS, 


IFL=OTHENVOLB 


EOLOR4,1:COLDRO, 1: IFL=OTHENL=1: G0SUB297 :MA=4:F=0 


IFL=7THENL=INTIRNDt1) #6) +1 


EOSUB446: ONLGUSURSOS,323,243,359 ,381 ,419: V=40: W=24: 27=B0: VV=B0: 1 J=VI#l 


GOSUE448. 


denken nichts einfacher 
als das. Aber Vorsicht! 


Joystick links 
Joystick rechts 
Joystick oben 


Joystick unten 
Joystick rechts+Feuer 
Joystick links+Feuer 





©: POKES& „60: GOSUBZOB: NEXTTL 


ben nur vier Leben. Steuern können Sie 
Jumping Joe mit dem Joystick: 


Jumping Joe links 
Jumping Joe rechts 
Jumping Joe oben 
Jumping Joe unten 
Sprung nach rechts 
Sprung nach links 


1?1 CHAR1,19,0, "WREKDRD: WW" +STRE(REIH" BB "SECHAR1,0,4, 0! "+CHRE(MAH+SNDIHR ON" 

122 PRINT"BEUNKTE: Id" SPz "WS FOKEY#40+X+2048,, 94: FOKEY#404+X4+3072,53 

123 CHAR1,0, 2," HIT HT 0 8/1985":CHAR1 15,4," 8 De "+CHREIFIIH" 
174 FRINTCHRE (27) "0": :60T0177 146 GOTD158 

175 REM BEWEGUNGEN DES SFIELERS 141 Z=FEEK (Y#40+%+3152) 

125 Z=FEEEK {Y#40OrHXHZ115) 142 IFZ< >&5ANDZX>74THEN185 

127 IFZ<& »45ANDZ= >74THENI16&2 . 143 POKEY#40+X+3072,Z1: FOKEY#40+X+2048,YY 
128 FOKEY#40+X+3072, 72: POKEY#40+X+2048,yy |14* Y=Y+1:SOUND1,300,3 

1297 X=X+1:50UND1,100,3 145 GOT015& 

130 GOTD155 145 Z=FEEK (YRr30+X+3117) 

151 Z=FEEK(Vr40+X+3111) 147 IFZ< »65ANDZX >74THEN162 

132 IFZ<>65ANDZ<>74THEN152 148 FOKEY#40+X+35072, ZZ: POKEY#40+X+2048,YY 
1353 POKEY#40+X+3072, 22: FÜKEY#40+X+2048,YY ]147 X=X+5: SDUND1,5300,53 

134 X=X-1:SDUND1,100,3 150 GOTO1S6 

35 60170158 i51 Z=PEEK (Y#40+X+2107) 

1364 Z=72 152 IFZ< FE5SANDZ< >74THEN283 

137 IFZ£>&5ANDZX >74THENI1B& 153 FOKEY#A0+X+3072,7Z7: FDKEYR4OFX+ZO4B,YY 
138 POKEY*40+X+3072 , 22: FOKEY#*40+X+2048,YY |154 X=X-55 SOUND1 „500,5 

139 Y=Y-1:50UND1,300,3 155 5070156 - 


155 ZZ=FEEK {Y#40+X+3072) 2: YY=FEEE (YRAOHKX+ 2048) : FODKEY#AO+KHZO4B,, 974 


157 FOKEY#40+X+2072,Z2+1 


iz/t 


158 
15% 
150 
181 

152 
1&3 
154 
185 
155 
167 
148 
147 
170 
171 
172 
173 
173 
175 
17& 
177 
178 
1797 
180 
ig1 

182 
183 
19& 
187 
1898 
187 
170 
171 

1972 


programme 


IFZZ=&BTHENF=P+100% (EG+1) 1 EG=EG+1: SOUND „1,3: 27=32: BOSUB?96: IFEB=BTHENGG& 
IFZZ=71 THENF=P+500: GOSUB296: SOUNDS „900,2: 22=32 
IFX=VANDY=WTHEN2B4 

GOTO18& 

REM VERLUST EINES JOES (1) 

FORI=1T08 

FOKEY#40+X+3072,99: FOKEY#40+X+2048,114 

SOUNDS ,100,5 

NEXT: FOREW*A04V+3077 , VV: FOKEWRAO+V+2048 , WW: CHARI „2,4, CHRS$ (MA-1+59) 
SOUNDS, 100,5 

MA=MA-1:50SUB418 

IFMA>OTHENY=22: X=10: Z7=32: G0T0119 

DOUNTILIBY (1) =128=:LOOP: MA=4: FRINT "SIERT" CHR& (27) "1" 
PRINT"L"zCHARL,3,10,"FUNKTE:IR"+STREIFFHF I m 
CHAR1,3,12, "REKORD: I" +STR$ (RE) po mg" 

BOUNTILIOY (1)=129:LOOrF 

L=1:EG=0: IFRE{=PTHENRE=F : GOSUB377 

V=0: W=0: P=0:PRINT"U":60T0115 

REM JOYSTICKABFRAGE 

IFPEEK 1347 }=TTHENSY4 

Z=J0OY 1}: 2=2+1: IFX=VANDW=YTHEN?B4 
DNZEOTO183,136,183,125,183,141,183,131,183 

1=7-128 
ONZGOTO186,183,183,1465,185,183,183,151,183 

GDTD18& 

REM BEWEGUNG DER KUBEL 
FOREW#404+V+3072 ,VV: POKEW#A0O+V+7048 „bile IFU=XANDW=YVTHENZBA 
1J=1J+1: IFIJ=VI+ZTHENT7O 

VEV+RVEWERHRU 

IFW<SORVSODRW>24ORV +39 THENZ7O 

VVSFEER (W#40+V+3077) ıWW=FEER (W*AO4+V4+2048) ı IFV=XANDW=YTHEN?84 
FOKEW#404V+3072 „VV+2: POKEWRAO+V+204B, 127 


193 2 204 CHAR1,0,0, "PUNKTE: B"+STRECPIHt gm 
194 : 205 NEXT 
| 455 E0r7T0177  20& GOTD11S 
196 REM ENDE EINER STUFE 207 REM MASCHINENFROBRAMM / DATA TEIL 1 
197 EB=0 ‚|. 208 DATAA2,00,6D,00,D0,9D,00,3C 
198 FOEEY*40+%+3072, ZZ: FOREY#SO+XH 2049 ,YY 207 RESTGRE 
197 L=L+1:FORJ=1T053 210 DATABD,00,D1,9D,00,5D 
200 FORI1=100T0900STEF80 214 DATABD,00,02,97D,00,3E 
=z01 SDUND1,I,2 5 212 DATABD,00,03,90,00,3F 
202 NEXT:NEXT 213 DATAEB,EU,00,D0,E3,50 
2553 FORI=MATOGSTEF-1:F=P+250 =214 DATAF: FOKE&45286 ,„FEEK (652785) AND?SF 
=15 FOKESS2IE,FEEE 185298) AND2S1: FOKEAS2PTF „FEEK (552979 ANDIORSO 
215 REM NEUE ZEICHEN / DATA TEIL = 
217 DATAGS,243,243,0,223,223,0,243,243,81,126,153,255,189,195,126,202,231 
219 DATAS4,0,0,24,60,60,24,0,0,59,0,60,36,36,26,36,60,0,98,0,0,24,60,60,24,0,0 
217 DATAS3, 126, 153,255,189, 195, 126, 102,231, 87,40,102 „219,161,161,219,102,60 
220 DATA&&,255,153,255,153,195,126,247,247 
221 DATA67,243,243,24,255,255,24,255,243 
222 DATA68,0,0,130,199 ,253,293,7.2 
223 DATA69,126,153,255,189,195,255, 103,231 
224 DATA70,0,0,130,223,753,253,31,2 
225 DATA71,0,0,0,219,155,219,91,219 R 
226 DATA120,0,0,9,10,14,10,9,0 
227 DATA121,0,0,15,9,7,7,15,0,80,0,24,24,24,24,24,24,0,61,0760,12,60,48,48,60,0 
228 DATA72,124,153,255,189,195,255,127,285,62,0,60,12,60,12,12,60,0 
229 DATA122,0,0,60,36,60,36,60.0,62,0,48,52,60,12,12,12,0 
© 
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230 DATA123,0,0,36,26,24,24,24,0 228 DATA73,0,0,24,255,191,219,91,219 

2351 DATA112,0,0,15,12,12,12,15,0 239 DEI ee O0 a on sEn250, 230 
232 DATA112,0,0,9,9,15,9,9,0 240 DATA109,50,230,220,60,230,231,238,&0 
235 DATA114,0,0,15,7,15,10,11,0 =41 DATA110,0,255,205,755,61,255,0,0 

234 DATAL15,0,0,15,6,6,6,15,0 242 DATA111,0,255,198,230,198,198 ‚ö, o 

235 DATA116,0,0,15,12,15,3,15,0 243 DATA119,0,0,9,13,11,9,9,0 

236 DATA117,0,0,15,6,6,6,6,0 244 DATA74,195,195,195,255,255,195,195,195 
237 DATA118,0,0,15,9,15,9,9,0 


245 DATA7&,195,195,219,255,255,219,195,195 

246 DATA7S,255,153,255,189,195,255, 231,221 

247 DATAB0,0,0,0,0,0,0,0,0,82,0,0,74,60,50,24,0,0 

248 DATAF9,44,6,176,131,50,92,174,20 

249 DATASS,44,6,176,141,50,92,174,20,77,44,6,176,141,.50,97,174,20 

250 DATA1O2,124,102,102,124,96,95,96,0 

251 DATA1O4,124,102,102,124,96,96,96,0 

252 I=d: DATAF:S=O 

253 READZF 

254 IF7S="£"ANDS=S&17THENEYSB1F: RESTORE21 7: S=C;: GOTO2SY 

255 IFZ#2 >" SE" THENZ=DEO (7#) : 8=5+27: ELSEGOSUB448: PRINT"FEHLER IN DATA TEIL 1":END 
256 FOKEBI9F+I,Z 

257 I=I+1 

258 6010253 

259 READZ& 

260 IFZ$S="$"ANDS=3911THENZ66 

261 IFZEI "ES" THENZ=VAL (Z#3 : 5=5+Z: ELSEBOSUB448: FRINT"FEHLER IN DATA TEIL Z"sEND 


za FORI=OTO7:READAÄ ; zA7 FRINTCHRE (8) CHR# (14) 


263 FOKEZ#+B+15T780+1, 258 FRINT'EBS" 

264 NEXT 269 RETURN 

255 GOTO2S?7 =70 REM RICHTUNG DER KUGEL 
66 SCNELR: FÜRESS2B6 „FEEH (685285) DR15 271 Z=INT{RNGB(MD#12) +1: 1J=0 


272 ONZGDTO273,274,275,276,277,278,279,280,273,274,275,276 

273 VEX-VIEWeYERWeOERVe1: SOUNDS, 650, 4: G0TO2B1 

274 VeX+VI:W=eYsRW=0: RU=-1:5OUNDS „650 ‚4: G0TO2B1 

275 V=X:W=Y-VI:RW=1:RV=0: SDUNDS , 650 ,4: SOTO2B! 

276 V=X:W=V+VI:RW=-1:RV=0: SOUNDS ,650 ,4: 50TO2B1 

277 V=X-VI:W=Y-VIERW=1:RV=1: SOUNDZ, 650,4: G0T0281 

278 VEX+VIeW=V-VIERW=1:RV=-1: SOUNDS „550,4: 5070281 

279 V=X-VI:W=SY4VISRW=-1:RV=1: SOUNDS" ‚650 ,4: G0T0281 

280 VeX+VI:W=Y+VIsRW=-1:RV=—1: SOUNDS, 650, 4: 50T028i 

281 VV=PEEK (W*40+V+3072) : UW=FEER (70494+V+ A408) 

282 6010177 

283 REM VERLUST EINES JOES (7) 

284 FORI=1T08 5 

285 FOKEY#40+X+3072,99: POKEW#40+X+2048, 114 

286 SOUNDS,100,5 

287 NEXT: GOSUB418 

=88 MA=MA-1: POKEY#40+X+3072, ZZ: POKEZO4B+X+40#Y ,YYı WW=ZZ:WW=YY= CHART „2,4 ,CHRE (MA+ 
57} 

289 IFMA>OTHENY=22: X=10: 7Z=32: 6DT0117 

270 DOWHILEJOY(1)<>128:L00P:MA=4: PRINT "ERBEN" CHR& (27) "T" 

291 PRINT"@"SCHAR1,3,10, "FUNKTE: J"+STR& (P)+" pm 

292 CHAR1,3,12, "REKORD: J"+STREIRE)+" gg we ; 

293 DOUNTILJIOY(L)=129: LOOF h 

294 L=1:£6=0: IFREX=FTHENRESF : GOSUBS77 

295 PRINT "("; V=0: W=0: P=0: 6010115 

296 FRINTCHR& (277) "OBPUNKTE: "SF; "MR": RETURN 
297 FRINT"ERLZRRRIS" : As="Be4BBBHBHRBHBRHIHHHHHEHBHBHHRSHIHSHI SE" 
298 FRINTUSINGA$: "JUMPING ! JDE" 
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299 
Soc 


502 
305 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
siä 
317 
S:8 
317 
Sszo 
321 
322 
3253 
>24 


325 


325 


327 


328 
327 
330 
531 
332 
333 
334 
533 
356 
357 
s38 


. 3357 


340 
541 
342 
543 
344 
345 
345 
547 
348 
>47 
330 
351 
352 
353 
5354 
355 
etaT- 
397 
358 





Programme 


FRINT'EM" 


FRINTTAB(7)5"c 8/1985 e Eu "CHREISHE —_" 
PRINT "Rp" 
FRINTUSINGASE "Lk Hl E47 + u" GOSUBSFE 


FRINT' JERllla" - POKE2IPF,0O 
RETURN 
REM MERSEREDENE STUFEN 


Fi EN TeIeINN FELAZHISTENE] Bi y Mi 
PRINT" a4 DEI e Ice 02 00 


PRINT" . i 


1 


PRINT" 0000 4 I BE u: Be Be 
FRINT" L mar sr ja 
FRINT" rer: 


FRINT" 8 zerbtätssstertsetenn. : 
FRINT" 


PRINT" Te i 
PRINT" h . 


PRINT“ \ We: zu Bi 


FRINT" —- Ei SIE eTE Tr rer or rt 272 

FRINT" Sant 

277=32; Y=22: X=10: VI=9: POKEY#40+X4+2048 „94: POKEY#40+%+3072 , 33: EG=0 
Yy=0: 50T0380: RETURN 
PRINT "(Jetsteretetstefsteteirterete 
PRINT" m —- 

FRINT" 9 + 

FRINT" 4 i 
PRINT" \ m - 
PRINT" “ k a ee. 

PRINT" \ et a . 

PRINT" - ma Mertst Et 

PRINT" we Teer h IE- Be" Bl 
PRINT" Fi ELITE Beet erN 
PRINT" m * 
FRINT" 13 m 

FRINT" ME I I 7 2 3 7 7 26 

PRINT" RE [x € 7 7: 5 

FRINT" RE ET Tr 

PRINT" _ E Er 5 2 Tr Be 

FRINT" & A E 

PRINT" esse 

22=32: Y=22: X=10: VI=7: PÜKEY#40+X+2048, 94: FOKEY*40+X+3072,33: EG=0 
YY=0: BOTOS80: RETURN 





PRINT’LER IT 2 Kl BIT al rg = 
PRINT" ® een 44 h 244 Ei +3 

PRINT" E " rt 

PRINT" a . 4 

PRINT" a ie Rt 

FRINT" [E mM Mt 

PRINT" me 

PRINT" Bali Be j at 

FRINT"  asttt ja Ei x, 

PRINT" + 

PRINT" ki 0 B- art 

PRINT" Ei 25 72 7 zu R 
FRINT" 0 - a tu. m = 

PRINT set z 


Y=22:X=10:VIsöt IJ=VI: 272=352: FOFEY#40+X+3072, 33: FOKEY#40+X+2048, 94: EG=0 
GSOTDSBO0: RETURN 
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397 
30 
361 
32 
363 
S64 
345 
sah 
357 
>öB 
37 
370 
571 
372 
375 
374 
375 
376 
377 


So3 
374 
393 
306 
397 
arg 
309 
490 
401 

402 
403 
404 
405 
40 
407 
46B 
407 
410 
411 
412 
413 
414 
415 
416 
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PRINT" 
FRINT"'N 
PRINT" 
FRINT"I® 
PRINT" 
FRINT’ 

FRINT!" [Ei . 
FRINT'R Be a 
FRINT"B ee | 7 
FRINTT Wett [3 ee E 
FRINT" ia ru aisad Kim ci 
PRINT" RETTEN Da au = 
PRINT" B“- A'fs4s Id! „ 
FRINT" Eu Terre a: In 
PRINT" B- E27 7° Id - u ag 
PRINT" Ratstsshstest EIFIeTTeN 
Z7=32: Y=22: X=10:VI=4: YY=1133EG=0:60T0380 

REM ENDE BEI REKORD 

CHAR1,12,16,"! NEUER REKORDE!" 





TETSTATETEICTSESEN 


378 FORI=1T03: SOUND ,596,10: SDUND1 „704,20: NEXT: FDORI=1TD100: NEXT: DRUNTILJOY (1)=12 
8:LOOF 

379 RETURN 

380 FOKEY#+40+X+3072, 33: FOKEY*40+X+2048 , 94: SOLINDI „BÜO, 10: SOUNDZ2,, 700,10: RETURN 
381 PRINT "LERSEESTTSINTSTATSISTAITRTATE) in 

38? FRINT” EB ALERT FT Br 

3835 FRINT" a. Br wi‘ 

384 FRINT" ki B- Bee u Wi 

385 PRINT" Krrsataa + E68 ı- 

335 FRINT" [Er En Era" 

387 FRINT" ER #1 N e B+3', 

>88 PRINT" EB 7 Wii BER Bea 

3897 PRINT" Mia Erreeeeee at 

390 FRINT" + hi il > 5 

391 FRINT" PIERRE FTIR RN 

392 211=32: Y=27: X=10:VI=4: POKEY#40+X+ 7048, 94: FOKEY#4OH+X + 3072,33: Eb=ü 


YY=0: G0T0S80+ RETURN 
CHAR1,15,7,"KE A US ER":WAITIS47,1: CHAR1,15,7," r 
G0T0177 

RESTORE401 

READA ,„B,C:&=C0*#10: IFJOY (1)=12BTHENA=-1 

IFA=-1THEN410 

SOUNDA,E,C 

GOTOS97 
DATA2,643,2,1,929,1,1,834,1,2,722,2,1,897,1,1,834,1 
DATA2,770,2,1,873,1,1,834,1,2,722,2,1,897,1,1,834,1 
DATA1,929,2,2,643, 1,2,834, 1,1,897,2,2,722,1, 2,834, 1 
DATA1,873,2,2,770,1,2,834,1,1 "897,2,2,722,1,2,B34,1 
DATA? ,543,2,1,729,1,1,854,1,2,759,2,1,911,1,1,834,1 
DATA? ,798,2,1,881,1,1,834,1,2,739,2,1,911,1,1,834,1 
DATA1.929.2.2.643.1,2.834,1.1.911,2,2,739,1,2,834,1 
DATA1,881,2,2,798,1,2,834,1,1,911,2,2,739,1,2,834,1 
DATA1L,834,10,2,722,10, -1, ö, 6 

FRINT "EEL.KIR BSIUMPING DE“ 

FRINT"RM DU BIST ER!" 

PRINT" BEIN UNSICHTBARER GEGNER" 

PRINT"ERM FEUERT Ei AUF DICH AB" 

FRINT"ERER FUNKTE: Ella — 500 BONUS" 

PRINT" ia - 100 * ANZAHL" 

PRINT"KIEE DU MUSST ALLE SCHLUESSEL EINSAMMELN" 


Ich kann’s Ihnen 
ja verraten! 






"Auf $, 31 finden Sie 
die interessantesten 
Programmangebote 

zum Fest. 
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417 DOWHILEJDY (1323128: LOOF= RETURN 

418 V=40: W=24: vV=32: We=3?z LJ=VI+13RETURN 
412 PRINT"LRER 3 SISHSESTETST al 
420 FRINT" ERTEILT 

421 PRINT" E88 Bee B- 
422 PRINT" + + 23 E+ de 
423 PRINT" ai nr Ba. 5 
424 PRINT" + + d- R+ * 
425 FRINT" Ei rn eG IT 
4265 PRINT" E+ + HE+ # + 
427 PRINT" E23 Ex 
428 FRINT’ I Ge - Bu 2 u We u ze: 5 
423 FRINT'E zittert 


430 
431 
446 
447 
448 
449 


TIPS E.TRICKS Me ns TE 


' POKE 194, 1 


277=32: Y=72: X=10: VI=3:POKEY#40+X+2048 , 94: FOREY#40+X+3072, 35: EG=0 
YY=0: 50T9O380: RETURN 

FOREASZBS „FEEK (65286) AND2S 

RETURN 

FOKES5286 ,FEEK (685286) 0R16 

RETURN 


Schaltet von der normalen Schriftdarstellung in die reverse Darstel- 
lung. 


' POKE 194, D 


POKE 65286, PEEK (65286) AND 239 


POKE 65286, PEEK (65286) OR 16 


POKE 1344,64 
POXE 1344,0 
POKE 1344,128 


Sounds: Computer-Mania 
10VvoL8 
20 FORL=1t060 


30 SOUNDT, INT{RND)(T)*T0T5+1),4 


40 NEXT 


Laser: 
10 VOL8 
20 FORI=11050 


Hebt die reverse Schriftdarstellung wieder auf. 


Dieser Befehl löscht den Bildschirm und Daten können bis zu 6 Prozent 
schneller eingelesen werden. 


Rückkehr in den Normalzustand. 


Tastenwiederholung: 
Legt bei allen Tasten die Wiederholungsfunktion lahm. 


Alle, bis auf die Cursor-Tasten, werden lahmgelegt. 


Der Einschaltzustand ist wieder hergestellt. Alle Tasten besitzen eine 
Wiederholungsfunktion. 


Grafik: Mosaik 

2 40CO0LO0R0,1:COLOR4,1 

20 PRINTCHR$(147) 

30 H=INT (RND(1)*1001) 

40 G-INT (RND{1)*64+64) 

50 POKE2048-+-H,G:POKE3072+H,160 
60 GOTO30 


30 SOUND3,1023-1,1:NEXT 
40 GETAS:IFAS="L’THENTO 


50 GOTO 40 
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CITY-RUNNER für den Commodore 16 





Finde 


Das Spiel City-Runner ist ein Spiel mit sieben Schwierig- 
keitsstufen, Ziel dieses Spieles istes, das Männchen sicher 
durch den Verkehr einer Großstadt zu steuern. Die Steue- 
rung kann entweder mittels Joystick oder der Tastatur 
(Cursortasten) erfolgen. Sie müssen beim Steuern darauf 
achten, daß Sie nicht gegen Autos oder Mauern laufen. Ist 
das Ziel erreicht, erhöht sich beim nächsten Durchgang 
die Geschwindigkeit. Ab Level 7 bleibt die Geschwindig- 
keit gleich. Am Anfang des Spieles kann man den Schwie- 
rigkeitsgrad wählen. Sollte Ihnen der Aufbau des Spielfel- 
des nicht gefallen, können Sie dieses jederzeit ändern. 













‚io sich im Verkehrsgewühl einer Großstadt zurecht 


10 REM KREIEREN N 

zZ! REM #* CITY — RUNNER * 

IS REM HERNE RER ® ; 

15 REM bad 

16 BEIM heisse 

zo REM * JUERGEN WITTE * „Bei diesem Verkehr kommt ja keiner sicher durch die Straßen der City“. 

ZOO REM Ran ER HHR 

40 REM x 3000 HANNOVER 71 #* 3 

50 REM SE 87 REM 

au REM * tcI 1995 * 70 SCNELR: COLOR4,2,2:5C0LORO,2,2 

70 REM Here 100 FOKESA,„47:V=65280: VOLB 

85 REM 170 FOKEV+1B,FEEH {V+1B) ANDZSI 
a4 REM mess 130 FOKEV+19,FEEK (V+17) ANDSOR4B 

95 REM x###r NEUE ZEICHEN #+%*#+ 140 FORT=832T0849: READA: FOKET „Ar FR=SPFR+A: NEXT 
BA REM Sa 150 5Y5932 

160 FÜRT=12800T013000: READA: IFA>-1 THENFOKET „Az NEXT 
170 DATA162,0,189,0,708,157,0,48,189,0,209,157,0,49,202,208,241,96 

172. RE sstssss ER 320 DATAC,16,21,20,84,84,182,20: REM "N" 
175 REM x+# DATEN FUER NEUE ZEICHEN ###* 330 DATAO,0,747 ,65,65,63,65,69: REM "0" 
176 REM Hr EEE. 340 DATAO,0,222,16,28,16,16,30: REM "P" 
190 DATAO,15,16,32,127,97,109,12z, REM .' 350 DATA25S , 255,0, 255,255,0,255,255: REM a 
190 DATAO,128,64,22,255,2725,237,12:REM "A" 360 DATA129,66,36,24,24,60,90,153:REM "R" 
200 DATAG,1,2,4,255,135,183,48:REM "DB" 270 DATA179,66,36,248,248,36,66, 129: REM "5" 
210 DATAO0,240,8,4,254,134,182,48:REM "EC" ZB0 DATA?4,24,60,90,153,36,36,36:REM "T" 


220 
230 
zacu 


50 


DATA24,24,54,90,60,60,66,129:REM "D" 
DATAO,239,239,239,0,253,253,283:REM "E" 
DATAO,60,102,102,195,219,126,126:REM "F" 
DATAL2&,126,255,219,66,102,60,0:REM "5" 


260 DATA&0,66,157,161,161,157,66,680:REM "H“ 
270 DATAO,0,146,138,230,146,1465,225:REM "1" 
280 DATAZ,240,148,148,20,20,148,99: REM "I" 


pur Te) 13 E 2 
O0 


310 


DATAO,0,177,170,170,210,170,37: REM 
DATAO,0,207,40,14,232,40,207:REM "L" 
DATAO,1,73,73,105,89,73,73:REM "M" 


385 DATA1;5,0,15,31,0,127,2553REM "U" 

290 DATA12B,192,0,240,248,0,254,255: REM"Y" 
375 DATA255,127,0,31,15,0,3,1:REM "W" 
299 DATA?735,254,0,248,240,0,192,128: REM "X" 
a00 DATA-1 

401 LE=1 

302 GOSUB1COO 

403 COLOR4,7,3:C0L0RO,1:PRINT"LZE" 

500 FRINTCHR&$ (8) 

S10 I=1:86=0:H=1:E=3115:R=20y1 


500 Br=" ae Kae Eu ee a Fa ass Kraul! Sa N sc en Kasäkie; 
561 As=" 1-1-1-1- a ed tee 11-11" 
BO Ce a" 
aus De=" Bar we er = ee 


BEER wur 
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[= 167-) 
507 
süß 
607 
810 
Gil 
sis 
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E$=E$+As: FSrDEHrCH 

REM KRHHRHH RHEIN 
REM ####* SPIELFELD ##### 
REM KERHRHHHEREHREEENNHNHEN 
FRINT’LIIEFSESTARTEM ee ee Me 

FRINTFEEIITTTO9Ta a EMI EN EB a —an LEVEL:W": LES "pP" 
FRINT'TERTT Ta EB TA N IT IB IE IT N17]119 




















5831 FRINTEERERINE — EEE: Du. u 508 >} en (Ele | BT Da 
632 PRINT" aa a a 77T B-#47": 
633 PRINT" a En: zug 
AsazpRl NIT oe m En an 
35 FRINT"- Eu I Mann O2 mo Be: 
&35 FRINT" | am aa nn Ha" 
&41 FRINT"EREIEER tar ? za Br on: 
&42 FRINT"T- = Ze 
533 FRINTT— #4 Bi 2 7 BA 1-4 un 
671 FRINT "ERANHET SISTSIKISERTERSTATATETE + A —- 7 TR 
Um 
673 BRINTT— EL ——— 








676 REM 720 IFF=7ORTT=48THENG=-1 
677 REM Beth 730 IFF=50ORTT=40 THENG=40 
678 REM ##### HAUPTSCHLEIFE ##H##* 740 IFF=10RTT=43THENG=—-40 
E7F REM RER + 750 FDKEE,S2 
680 F=J0Y (1):TT=FEEK (198) 7&U E=sE+G: B=H+6 
686 FRINT'ERRERM" ; MID# (EFF, H,A0) 770 IFE=400BTHENSÜOSUBBTFO: GOTDS1C I 
587 PRINT" EESKSTeIeIHIsTeieeIete"  MIDE (FE ,AD-H,40)5 780 IFFEEKtEIZPATTHENGOTDRSO 
&BB FRINT' SHHLciklcteriTrsIcrsEReIeN" ; MIDFIEF,H,„40) 5 770 FOKEE,6B:FOKER,11J3 
468? FRINT'"SRRERLREREREREEREDRERRRREREN" : MIDS (FF ,42-H,40) 800 FORI=1TOL:NEXTI 
890 IFH=41 THENH=1 BOS FÜKEE ,B4:FÜOKEB,113 
FO H=H+H1l 810 80T06B0 
710 IFF=30RTT1=51THENG=1 

820 FOKEE „68: FDEERB,113: LE=LE+1:_L=L-25: BDSUB1S00: IFLITSTHENL=2 

825 RETURN 

8530 FORI=170150:NEXTIS=FOREE „S2: FOKER,113:FORI=1T0150:NEXTI: FOKEE ,83: FOKEB „113 

840 EBOUND1i,585,20: SBUNDI „643,20: SENDE 5765,20: SBOUND1.571,20: SOUNDI, 515,50 

845 FDRI= 1T01500: NEXTI 

850 FOKEZZY)O:WAITES 9,13 POREE „321 6010510 

BSEO REM RR HRIIIE HERNE EN 

9606 REM ##### TITELBILD #x%## 

Y7O BEM KSHEHEH HER KEN FEEHKKHHNE 

1000 FRINF"W":COLOR1,35,0:FRINTTAEB (7Y'"BER sur. a zaus0 (C.'.% Pa 

16010 COLOR1,„3,1:FRINTTAB(TI'"M "= 1 ik wi Zn 

1020 COLOR1,5,2:FRINTTAB(TI’M [) & u RL u) 

1030 LOLOR1,3,3:2FRINTTABITI'"# . * _ 5 “ 

1040 GOLOR1,„3,4: FRINTTARB(T) "se L:) # Bay j 

1050 COLBSR1,3,5:PRINTTAB (7) "# [7 * ® „rr y 

1050 COLOR1,S, ö:PRINTTAB (TI "oasaH [ * „ br 

10670 ECOLOR1,3,5: FRINT’ERWssesaı 8 [zu | u.» “. ra Be" 

1075 ECOLOR1,3,57FRINT"# u. | Ze SEE Te Fe Te ° 1 5 

1080 EGLOR1,3,4:FRINT"% . 8 “ou en hm [ a 

1090 COLOR1,3,3: FRINT"# u 8 = 8 oe Bl Hi “ a" 

i1lü6 COLOR1,5,2:FRINT'eesaH © u. och m Q ® .T.7 25 

illo EOLOR1,35,1:2FRINT’# 08 8 u 85 “.‘ u | BER E 

1120 EDLOR1,3,0:FRINT'# Sn Ua — u u“ eu.‘ EN en 

113G FRINTTAB CZSI IR I . TI . 

1140 GDOSUBiSo0 

1144 REM SEHR HEHE HH HH HH 

1145 REM **3#%*+ SCHWIERIGSEEITSERAD #rHrHr 

- o 
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1146 
1159 


REM Run TER HE EHER 
BGETÄF 

1180 IFAt=ECHRS$ (1393 THENIFSORN 

1200 GOTO1150 Ki 

1250 COLOR4,5,3:CÖLORO,1 
1250 FRINT'LERRRRETBEETICRE ee 





1270 FRINT'RBRRRBSBERT 13 LEVEL [ 1-7 13 ua" 

1290 PRINTER RR re nr Fe a 
1310 BETA 1410 GOTO1310 
132 IFA&="1"THENL=150: LE=ILE+O: RETURN 1450 REM SEN anni 
1330 IFAs="Z2" THENL=125:LE=LE+I: RETURN 1500 REM ##r MUSIK xuua8 
1340 IFAF="Z"THENL_=-100: LE=SLE+Z: RETURN 1505 REM er 
1350 IFAF="4"THENL=75: LE=LE+3: RETURN 1510 FORI=1T018 
1340 IFAs="5"THEN_=-50:LE=LE+4: RETURN 1520 


READSO,VO 
SOUND „SD,VOzNEXTI 
RESTORE 1550: RETURN 


IFAf="&6"THENL=2S: LE=LE+G: RETURN 
IFAs="7"THENL=2:LE=LE+56: RETURN 


1370 
1380 


1530 


1240 


1550 DATA798,10,834,10,864,20,798,10,854,10,864,20,799,10,834,10,864,20,881,20 
1560 DATAB64,20,854,10,934,10,854,10,834,10,810,20 ‚778,20, 770,30 


: Im Rahmen eines Computer-Workshops stellte die Fa. Fischer als Neuheit den Baukasten ‚fischertechnik Computing“ der erstäunfen Fach- 
| vor Fischertechnik eht mit diesen Baukästen neue Wege und hält den Anschuß in der hachtechnisierten und somputergesteuer- 
‚ten. Technikwelt, ‚und das sogar im Modellbaukastenbereich. 


Vom Dübel zum EEE, 
Modellbaukasten 


Mit den einzelnen Baukästen lassen sich, 
wie bei der Fischertechnik üblich, aus den 
bekannten Bausteinen zehn und mehr 
Modelle bauen. Die Themen reichen von 
einer Verkehrsampel über Sortieranlage, 
Roboter, Grafiktablett, Plotter bis zur Nach- 
führanlage für Solarzellen. Der Witz an 


den kleinen Modellen ist, daß sie sich tat- 
sächlich alle an einen Computer anschlie- 
Ben lassen. Hierzu werden von der 
Fischertechnik Interface angeboten, die 
zu vielen Computern passen. Unter der Li- 
ste der verwendbaren’Computer befinden 
sich die populären G-64 und VC-20 eben- 


so wie die größeren Computer Apple Il, 
Commodore 4000 und 8000 und AcornB. 
In Vorbereitungen befinden sich Interface 
für die Heimcomputer Schneider CPG 464 
und den Sinclair Spectrum. 

Das Interface umfaßt eine acht-Bit-Aus- 
gabe zur Steuerung von vier Motoren in 


. m Kı n E ® . 
Computer-Kunst . von eigenen Gnaden kann man mit einem Plotter 


zu Papier bringen - vorausgesetzt das computerge- 
steuerte Zeichengerät ist vorhanden. fischertechnik 
bietet jetzt in seiner Computing-Serie einen Bauka- 
sien an, aus demmitHilfeeiner detaillierten Anleitung 
ein äußerst präziser Plotter konstruiert werden kann. 
Die Zeichnungen entstehen nach lieferbaren Fischer- 
technik-Programmen oder - was dem Computer- 
Freak erst richtig Spaß macht - nach eigenen Vorstel- 
lungen. Dabei gestaltet man zuerst das Bild auf dem 
Monitor und überträgt es erst auf Papier, wenn die 
Darstellung einem gefällt. Aber auch der umgekehrte 
Fall istmöglich: Mit Hilfe einer Abtastzelle macht man 
den Plotter zueinem Scanner. Nunlassensich aufdas 
Tablett gelegte Fotos oder Grafiken auf den Bild- 
schirm übertragen. 
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beiden Drehrichtungen, eine acht-Bit-Ein- | Baukasten steht ein Programm zur Verfü- | face Treiberprogramm gibt es auch ein- 
gabe sowie zwei Analogeingabekanäle. | gung. Dazu kommt noch ein Diagnosepro- | zeln mit dem Namen Grundprogramm auf 
Mit dem Interface wird auch die entspre- | gramm, mit dem beliebige Modelle durch | der Diskette, damit der Anwender eigene 
chende Software für den jeweiligen Com- | Tastaturkommandos in allen ihren Funk- Programme entwickeln kann. 

puter geliefert. Für jedes Modell aus dem | tionen getestet werden können. Das Inter- 


... mit dem normalen Home-Computer erlauben die 
Computing-Baukästen von fischertechnik. Jetzt ist 
für den Computer-Freak Schluß mit den Sandkasten- 
spielen auf der Mattscheibe. Über ein Interface (An- 
passungselektronik) kann er seinen Computeran das 
selbst gebaute Modell anschließen und es eigenhän- 
dig programmieren, damit es seinen Vorstellungen 
entsprechend funktioniert. Auf diese Art kann jeder 
Elektronik-Fan in wirklichkeitsnahe Maschinensteue- 
I rungen einsteigen, ohne jegliche Gefährdung von 
Mensch und Material, denn ein fehlerhaftes Pro- 
gramm kann dem Modell nichts anhaben. Ob Freak, 
Lehrling oder erwachsener Programmieranwärter: 
Der realistische Home-Computer-Einsatz ermöglicht 
„ Simulationen wie sie wirklichkeitsnaher nicht sein 


SERIEN EST 


erie den Trainingsroboter. können. 









Das Foto zeig 





Steckerbelegung für C-16 mit Standard-Kassettenrecorder 


An dieser Stelle finden Sie wie verspro- | tenrecorder. Ihren Kassettenrecorder als Datasette ver- 
chen die Steckerbelegung für den C-16 in | Wir hoffen, Sie können von den Versionen | wenden. 
Verbindung mit einem Standard-Kasset- | Gebrauch machen und so vielleicht auch . 


Cassette 
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CASSETTE MOTOR 
CASSETTE READ 
CASSETTE WRITE 
CASSEFTE SENSE 













tztas ® ö 
Proams sh 2 lalır ae 
2 En 22 Pkarton EUR 
n Ri Nam ED; 








Über 2000 Programme immer auf Lager. 
Ständig die neuesten Programme aus England und 
den USA, 

Gratiskatalog anfordern: 

Anton Peter & Partner, Kamminerstraße 9 
1000 Berlin 10, Telefon 453 2711 







wm | Sompube mi 2 


programme 


Nach dem Starten des Programms mit RUN 
wird zuerst der gesamte Zeichensatz neu 
definiert. Danach wird mit dem Einlesen 
der Maschinenroutinen und der Sprites 
begonnen. Dieser Vorgang dauert ca, 20 
Sekunden. Anschließend erscheint die er- 
ste Spielsequenz mit dem Titel des Pro- 
gramms. 

Wird nun der Feuerknopf des Joysticks in 
Port 2 gedrückt beginnt das eigentliche 
Spiel. 


anvertrauten Raumschiff, die seit drei Ta- 
gen verschollene Expedition von vier Wis- 
senschaftlern zu retten. Um diese jedoch 
erst zu finden, müssen Sie Ihr Schiff durch 
ein enges Kraterloch manövrieren. ist das 
geschafft, kann mit der Rettung begonnen 
werden. Doch es erscheint gar nicht so 
leicht, da sich die Forscher in dem unterir- 
dischen Höhlensystem verlaufen haben 
und Sie stets immer nur einen an Bord 
nehmen können. Doch dies ist natürlich 






sein, machen Ihnen zudem verschiedene 
Hindernisse wie Laserstrahlen, Energie- 
mauern und Steingeschosse das Leben 
schwer. Doch Sie als alter Raumschiff- 
kommanrdant werden sicherlich genau Er- 
fahrung haben und die Situation meistern. 


Nach erfolgter Rettung treten Sie den 
Rückweg an, damit Sie wieder auf der Ba- 
sis landen können. Dabei sind die Lande- 
koordinaten genau zu beachten, damit Ihr 


Ihre Aufgabe besteht darin, mitdemihnen 


0 REM NEUER ZEICHENSATZ 

1 PRINT"L": V=53248: FOKEV+32,O: PDKEV+33,0 
2 FORI=-832T08327+33: READA: FOKEI,A:NEXT 

3 DATA120,167,51,133,1,169,0,133,95,133, 
. 90,133,88,167,208,133,96,169,240 

4 DATALSZ,89,169,224,135,91,32,191,163,1 
69,55,133,1,88,96 

5 SYSBS2: FOREBSO,160:8Y5832 

6 FOKES6576,FEEK (56576) ANDZS2 

7 FOKESS272,B: FOKES48, 192: PRINT" 

8 PRINTTAB (LS) ’RERERRERERMISSIDN RESCUE": 
PRINTTAB (19) "IRRIBY" 

3 PRINTTAB (12) "RERMATTHIAS GOEDECKE":PRI 
NTTAB (14) "ERREIEFLEASE WAIT" 

10 FORI=0T01023: READA: FOKES7344+1 ,A:NEXT 
20 DATA1S9,159,164,.164,164,164,159,159 
21 DATA164,164,159,159,164,164, 164,159 
22 DATA106,26,6,25,106,106, 25,26 

23 DATA106,106,26,26,26,26, 106,106 

24 DATAL70,170,170,170,170,165,154,64 
25 DATA170,170,170,170,170,170,101,16 
26 DATA0,S,26,106,170,170,170,170 

27 DATNO,0,69,154,170,170,170,170 

28 DATA170,170,170,170,170,170,170,170 
23 DATA159,164,164,164,159,169,196,80 
30 DATAI06,106,106,106,26,26,26,5 

31 DATA1,6,25,25,106,106,106,106 

32 DATABO,164,164,169,169,164,164,164 
ZZ DATA1O4,22,1,0,0,0,0,0 

34 DATA170,170,70,5,0,0,0,0 

35 DATA170,170,170,.169,84,.0,0,0 

36 DATA170,167,148,64,0,0,0,0 

37 DATAO,0,0,0,0,1,22,106 

38 DATAO,0,0,0,22,106,170,170 

37 DATAO,0,0,80,165,170,170,170 

40 DATAO,0,0,0,0,80,164,169 

41 DATAL?0,170,170,170,170,105,20,0 

42 DATAO,0,20,105,170,170,170,170 

43 DATAO,0,0,0,0,1,1,6 





22 


44 
45 
46 
47 
48 
49 
50 
=} 


ws 
33 
54 
33 
55 
57 
SB 
37 
[16] 
61 
62 
63 
64 
65 
65 
67 
57 
70 
7i 
72 
73 
74 
7a 
7& 
77 
78 
73 
590 
81 
42 
93 
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nicht alles, denn wie könnte es anderes | Raumschiff sicher aufsetzi, 


DATA&,6,26,25,26,105,106,105 
DATAO,0,0,64,64,144,144,144 
DATA144,164,164,.164,164,169,169, 1659 
DATA106,106,26,26,26,6,6,6 
DATAA,1,1,1,0,0,0,0 
DATA169,169,169,1654,164,164, 164,144. 
DATA144,144,144,.144,54,64,128,128 
DATAO,0,12,53,255,63,12,0 
DATAG,0,0,0,0,0,0,0 
DATA31,31,75,255,255,95,31,31 
DATA2SS, 207,207,255,255,243,243,255 
DATA204 „204 ,204 ,252,252,204,204,204 
DATA48,48,48,40,48,48,48,48 
DATA252,252,204,204,252,252,192,192 
DATAO,O,12,12,0,12,12,0 
DATA252,252,192,192,252,12,252,252 
DATA252,252,192,.192,204,204 252,257 
DATA252,252, 204 , 204,252, 257,204 ,204 
DATA204 „204 , 257,204 ,204 , 204,204, 204 
DATA252,252,192,252,252,192,25?2,252 
DATAZ52,252,204,204, 204, 204,252, 252 
DATARO4, 204,204, 704,704,252,49,48 
DATA252,252,204,2704,2532,240,704,204 
DATA252,252,192,192,252,12,252,252 
DATA252,257,204 ,204 , 204,204 ‚252,252 
DATA48,48,48,48,48,48,48,48 
DATA252,252,12,12,48,48,172,252 
DATA2572,252,12,252,257,12,252,252 
DATAZO4,204,204,2532,252,12,12,12 
DATA252,252,192,192,252,12,12,.252 
DATALF2,192,172,252,252,204 ,204,,252 
DATAZS52,252,204,12,12,12,12,12 
DATA252 ,252,204,252,2572, 204 ,252,2572 
DATA252,252,204,204,252,17,12,1?7 
DATAZ32,252,192,192,177,192,2532,752 
DATA255, 255,255, 255,255,255,255,755 
DATA170,255,255,196,196, 255, 255,170 
DATAO,0,0,0,1,5,26,10& 
DATA1,5,26,106,170,170,170,170 
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84 DATA64,144,154,169,170,170,170,170 
85 DATAO,0,0,0,64,144,164,169 

864 DATA1,1,6,6,26,26,106, 106 

87 DATA64,64,144,143,164,164,169,169 

88 DATA170,170,170,170,169,166,154,106 
89 DATA169,166,154,106,170,170,170,170 
90 DATA106,154,166,169,170,170,170,170 
91 DATA170,170,170,170,106,154,166,169 
92 DATA169,169,166,156,154,154,106,106 
93 DATA106,106,154,154,166,166,169,169 
34 DATAO,0,0,0,1,5,21,85 

95 DATA1,5,21,85,85,85,85,85 

76 DATA&4,80,84,85,85,85,85,85 

37 DATAO,0,0,0,64,890,84,85 

98 DATA1,1,5,5,21,21,85,65 

97 DATAA4,64,80,80,84,54,85,85 

1006 DATA169,169,165,166,154,154,108,1085 
101 DATAi70,170,170,170,170,170,170,85 
102 DATASS,170,170,170,170,170,170,170 
103 DATA169,149,166,166,154,154,106,85 
104 DATABS,169,167,167,159,159,127,127 
105 DATA255,255,255,255,7255,255,7255,255 
106 DATA159,169,167,167,159,159, 127,127 
107 DATABS,255,2553,255,255,255,255,255 
108 DATA168,168,168,158,168,168,168,168 
109 DATA232,2572,242,242,202,202,42,42 
110 DATA149,1598,162,152,138,139,42,42 
111 DATA42,42,42,42,42,42,42,42 

112 DATAO,42,42,42,42,42,42,42 

113 DATAO,168,168,136,168,158,168,40 
114 DATAO,170,170,160,170,170,170,10 
115 DATAO,168,160,160,136,1354,40,40 
4116 DATAO,170,170,170,170,170,170,170 
117 DATAO,0,0,0,0,0,0,0. 

118 DATNs4,89,86,05,85,149,149,165 

117 DATA90,154,154,154,70,70,B6,585 

120 DATA145,165,153,154,154,106,106,106 
121 DATA8S,86,170,106,106,154,166,166 
122 DATABS,154,85,154,85,154,85,154 

125 DATA1,1,6,6,26,26,106,108 

124 DATA170,170,170,168,150,150,178,128 
125 DATA85,85,85,150,150,150,166,166 
126 DATA208,208,208,116,116,221,119,247 
127 DATAO,0,0,0,17,319,221,215 

128 DATA1,1,7,21,29,95,223,247 

129 DATA247,223,221,116,208,208,64,64 
130 DATA221,223,119,17,0,0,0,0 

131 DATA?223,119,119,93,747 1153 

132 DATA2SS,255,255,255,87,223,87,223 
132 DATA125,105,105,100,20,16,16,0 

134 DATA244,745,245,255,255,745,245,244 
135 DATAO,0,8,0,0,0,0,0 

156 DATAO,0,0,0,255,255,255,0 

137 DATAO,0,0,252,259,2595,255,0 

138 DATAO,0,48,252,255,255,255,0 

129 DATA0,192,195,242,233,255,255,0 

140 DATAZ,15,207,255,255,255,255,0 

141. DATAO,0,15,255,255,255,255,0 

142 DATAO,0,48,253,255,255,255,0 

143 DATA192,1972,48,48,12,12,3,2 

144 DATAS,3,17,12,48,48,192,192 


programme. 


145 DATAO,0,1054,1058,106,106,0,0 

146 DATAO,0,154,154,154,154,0,0 

147 DATAO,0,166,166,1564,166,0,0 

148 DATA0,0,105,105,105,105,0,0 

150 REM 

151 REM EINLESEN DER MASCHINENRDUTINEN 
152 REM 

152 FORI=0T0280: READS: POKE18000+1 ,S:NEXT 
154 DATA169,34,141,70,193,141,110,192,14 
1,150,193,141,108,194,141,148,194,141 
155 DATAL88,194,169,54,141,209,194,141,2 
10,194,141,211,194,141,212,194,141 

156 DATA213,194,96,169,96,32,82,70,169,9 
6,76,102,70,169,96,157,122,192,169 

157 DATAZ1,157,122,192,232,224,35,144,7, 
169,95,141,157,192,162,0,96,160,115 

158 DATA140,160,195,140,161,195,140,162, 
195,140,16853,195,140,164,195,140,165 

157 DATA195,140,1658,195,140,167,195,140, 
168,195,140,169,195,140,170,195,140 

150 DATA171,195,140,172,195,140,173,195, 
140,174,195,140,175,1975,140,176,195 

161 DATA140,177,195,140,178,195,140,179, 
195,140,180,195,140,181,195,140,1B2 


182 DATA195,140,183,195,140,158,195,140, 


159,195,200,192,122,144,2,160,115,96 
163 DATAi69,122,141,17,193,141,598,192,14 
1,99,193,141,140,195,141,181,193,96 

184 DATAL59,123,141,5,194,141,44,194,141 
„85,194,141,122,194,141,161,1974,96 

165 DATA1S9,122,141,241,194,141,26,195,1 
41,67,195,141,109,1975,141,149,195,76 | 
166 DATA1659,96,32,241,70,32,3,71,768,21,7 
1,162,0,160,124,140,154,193,140,155 

157 DATA193,140,154,193,140,157,193,140, 
158,1975,140,159,193,200,192,128,144 

15B DATA2,150,124,95,169,124,168,162,0,1 


'57,46,192,157,206,192,232,224,29,144 


169 DATA245,162,0,200,152,192,127,144,2, 
160,123,96 3 
200 REM 

201 REM SFRITES EINLESEN 

202 REM 

z03 N=0:F=5:Hl1=0:6=0: Z=0r U=e22: M=eG:=0:5C 
=0:0t=0 x 

204 51=-54272:1.=51+24: FH=5Iri:FL=51I1:W=5I+ 
4: A=51+5:H=5I+6: T_L=51I+2: TH=SI+3 

205 A2=5Iri2:H2=SI+13:W2=SIri11l: F2=51I+B: F 
3=5I+7 

206 FOKEL,15:FOKEW,O:FOKEW2 „0: POKEV+ZO,1 
:FOKESO1E9,21 

207 FODEEV+37,.45 FOKEVFSB, Ir FOKEV+397 „9: POK 
EV+40,1:FOKEV+34,1: FOKEV+35,11 

208 FORI=O0T052: READS: FOKESOSO4+1 ,S: NEXT 
209 FORI=SOTO&F: RERDS:FORESOSSBHI „Sr NEXT 
210 FORI=0T052: REABS: FOKESO432+1 ,5:NEXT 
211 FORI=6T047: REARBS: FORKES504965+1,5:NEXT 
z12 FDRI=6T082: READS: FOKESO55C4 1,57 NEXT 
213 FORI=0T082: READS: FOKESO6574+1,5S: NEXT 
314 FORI=0T062: READS: FOKESO58B8+1,5:NEXT 
215 FORI=0T052: READS: FOKESOYSZ+LI,„S: NEXT 
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21& REM 

217 REM START 

218 REM 

219 POKES3270 ,PEEK (53270) 0OR16:X=176:Y=17 

&: GOSUB2000 

220 FOKE49851 „71: POKE49B55 „72: BÜSUBAB? 

221 POKEV+27,0:FOKES0168,23: POKEV, X: FOKE 

V+1,Y:ıPFOKEV+21,1 

222 SYS198254:A="M ISSION RESC 
U E":B$=" FRESS FIRE " 

223 FÜRI=O0TD20:NEXT:SY518259 

224 J=PEEK (56320) ; IF (JAND16) =OTHENGOSUBB 
44: 60102200 

225 N=N+1:B0SUB226:GOTO273 

226 IFN=STHENPRINT "ERZRREN" TAB (T)ASTRETUR 

N 

227 IFN=40THENFRINT"ERERIIE" TARt7I BEE N=-2 

je) 

228 U=U+1:POKESO168B,Ur IFU=S2STHENLU=22 

229 RETURN 

230 REM 

231 REM ZIEL 

232 REM 

239 FOKEW,O: POKEV+27, o 

240 FOKEU+Z, 160: POKEV+3, 180 

241 FOKEV+4,170:FOKEV+5,180 

242 FOKEV+&,180:POKEV+7,180 

243 FOKEV+B,190: POKEV+F,180 

235 POKEV+41,1:POKEV+42,1:POKEV+43 ,1 

245 FOKEV+21,31 

233 FORT=Ö6T010 

250 FORI=0TO°: FOKESO169+1 ,22:NEXT 

251 FORI=OT0700: NEXT: FOKEW, 127: PDKEW,O 

252 FORI=ÖT03: POKES01&9+1,21: NEXT 

253 FORI=0T0500: NEXTI,T:B=0: Z=0 

255 6010907 

&57 REM 

&58 REM SPRITE DATAS 

657 REM 

663 DATA,aassas sr 79779 773733B1,0,0,356,0,0 
‚152,0,0,50,0,0,189,0,0,90,0,0,37,0 

664 DATAG 1Ab, 4 asas3 111 19 17 18 0089 5 


665 DATA, ya737757734,0,0,108,0,2,147,54, 


1,84,128,3,61,54,4,254,64,2,1268,128 
666 DATAS,126,64,2,254,128,1,125,64,1,13 
2,128,0,82,0,0,8,0, 33 3773733373 39993 


667 DATA4,138,64,0,0,16,10,40,0,0,133,0, 


1,64,200,96,60,0,2,255,84,9,255,12B 

668 DATA3,255,208,11,255,194,67,255,224, 

13,255,144,1,255,64,70,255,36 

669 DATAO,60,0,17,129,128,0,72,32,36,0,0 
„0,1,8,1,16,0,0,0,0 

670 DATA, sıysassear sr ga HT IT TE T TIG BE 
173,,60,0,0,60,0,0,126,0,0,152,0,1,24,12 
) 

671 DATAO,S6,0,0,56,0,0,56,0,0,0,0 

672 DATA, says asaI sa rrrIn genaueres 
60,128,0,189,0,0,126,0,0,24,0,0,24,0 

673 DATAO,24,0,0,26,0,0,66,0,0,0,0,0,0,0 
„0,0,0 

&75 DATA, ,,,250,0,2,234,128,2,170,128,21 


24 


Compute mib 


‚85,94 ,255,255,255,29,117,212 
6756 DATABO,0,85 
VTEIITEITER 
472 DATAC,0,0,0,250,0,3,234, 128,3,170,12 
8,21,85,84,255,255,259,553, 215,#2,5,95,80 
877 DATAO,B5 
sFs8773777 
681 DATAO,„0,0,0,770,0,3,254, 128,3,234,12 
9,21,85 „84,253, 759,255,22,95, 1185,5,85 
682 DATÄBO,O,85 
TITTTTTTIEITRTT 
686 REM 

887 REM KOORDINATEN FUER SFRITE 

ößB REM 

5987 M=M+1 

#70 IFM=1THENFOKEV+Z, 245: FPOKEV+3,72 

691 IFM=ZTHENPOKEV+2,200> FOREV+S 221 

sy2 IFM=3STHENFOKEV+Z „27: FOKEV+SZ 213 

6953 IFM=4THENFOKEV+2, 190: FOKEV+S3,120 

674 IFM=STHENFOKEV+2, 40: POKEV+3, 120: M=0 
675 RETURM 

700 REM 

7501 REM JOYSTICEARBFRAÄGE BILD 2 

702 REM 

Ran Seas /ar = er „© FÜKEV+30,0:N=0:E 
704 J= SPEEK (563 =Z0):N=N+. 
=25THENU=23 

705 IFPEEK {V+31)=STHENGOSUBSS4A: BOSUBBOR: 
GOTU773 

704 IFFEEK (V+31}=1THENGOSURBS4: GOSUBBO2: 
ESOTOT7T7S 


‚5,85 


FFETTIITFTITTITTTITF TI 


TETETIEITVITITITTITIIHRTEITTTE 


FTETIIFEIITILTITITEITTITTTIT 


s:K=K+1:U=U+1: 1IFU 


707 IFFEEK {V+Z0} = {10R2) THENGOSLBSSEZ 


7109 IF(JANDI)=SÖTHENY=Y-3 

712 IF(JANDZI=SOTHENY=Y+3 

714 IF(JAND4I=SOTHENX=K-3 

71& IFÜJANDBI=OTHENX=X+Z 

718 IFJ=127THENY=Y+r.5 

717 FOKESO16B „U: 5SY518073:5Y518048 


"72G IFN=3 STHENPOKESO169 , 223 FOKEWZ ‚03 POKEA 


2,10: FOKEF2,90: FOKEW2, 129 

722 IFNY7THENFOKESC169 ,21:N=0:5Y518159: F 
DKEH? „20: FOKEF2,250 

723 IFY<SSTHENGEOTO77E 

725 HB=INT {X/254) :LB= (XAND2S5) 

726 FOKEV,LBs FOKEV+1 ,Y: POKEV+16&,HB 
736 IFK=15THENSYS18000: 5Y518177: GOSUBBS7 
731 IFK=3STHENSYS18038: 5Y518195:K=0 
732 IFK=ZOTHENSYS1B213 

738 G0T0704 

740 REM 

741 REM JOYSTICKABFRAGE BILD i 

742 REM 

743 FOKEV+21,1:0=0:U=22: FOKER2,O 
744. FOKEFH, 20: FOKEH,O 

745 J=PEEK (56320) 

746 IF tJANDI)=OTHENG=B-. 35: D=1%1 
747 IFtJAND2I=OTHENG=G+. 4: D=131 

748 IF(JAND4) =OTHEWÜ=U-. A: D=131| 
749 IF tIANDB) =OTHEND=D+. 4:D=151 

750 IFJ=1?27THEND=O 
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751 Y=Y+B: X=X+0: POKEW,D 

752 HB=INT (X/256) : LB= (XAND25S) 

753 POKEV,LB:FOKEV+1,Y:POKEV+1&,HB 

754 U=1#+1: POKESO148 „U: IFU=SSSTHENU=22 

7536 IFINT(X)=174ANDINT (Y) »175THENGOSUBTB 
9 : 
757 IFX£300RX »ZOSORY >ZO0ORYSSOTHENSODSURE 
24: GOSUBSO2: X=175: Y=177:8=0: 0=0 

7E8 IFX>Z90ANDY 196 THENGSGTO77O 

760 FRINT " BEXKuRkhRBt" INT CXI = FRINTTABLA)IN 
1m 

761 GOTO744 

767 REM 

7&8 REM UEBERGANG ZU BILD 2 

7697 REM 

770 FOKEV+27,3:POKEW,O 

771 FÜRI=YTO220STEP.1=:FOKEV+1,I:NEXT 


772 FGEEV+Z1 „0: BU5UB841: G05UB1000: FOKEVT 


16,0: FOKEV „58: FDEEV+1,30 

773 FOKEV+21 ,Z: FORT=SOTO55STEP. 1: FOKEV+1 
„T: NEXT: X=58: Y=65: 6DT0703 

775 REM 

77& REM UEBERGANG ZU BILD 1 

777 REM 

778 FOKEW,„O:FDKEW2, 
0: GOSUBS41 

773 FOKEV „36: FOKEV+1, 220: POKEV+15,1:Y=10 
oO 

780 FORI=220T0100STEF-.4: FOKEV+1,I: IFI<i 


FSTHENFOREV+27,0 

781 NEXTI: G=-23: X=272: G0TDZE00 
78& REM 

787 REM LANDUNG Y. RAUMSCHIFF 
788 RES 


787 FOKE49851 ,71: FOKE49853 , 72: IFZ=0THEN? 
35 

791 FOKEV+3,169: POKEV+2, 175: POKEV+21,5:B 
=B+1:605SU6844 : 

792 FORJ=175TD13SSTEP-.1:POKEV+Z, 

793 IFJ<1468THENFOKEV+27,2 

794 NEXTJ: GDOSUR6BY7 

795 FOKEW,O:FOKEW, 131: FOKREV+21,1: IFB=4TH 
EN233 

796 FORE=0T0S0: FOKE47152+20+40*17,104:F0 
KE49152+20+40%17,8:NEXTE: FOKES4276,0 

7977 FOKE49B51 ,9: POKE47853,8 

798 FORI=YTOL20STEP-.1: FOKEV+1, Is NEXT: V= 
120: 6=-1.5:Z=0: RETURN 

759 REM 

300 REM EXFLOSION V. RAUMSCHIFF 

'B01 REM 

BÜ2 FOKEV+37 ,2: FOKEV+3G,7 

810 FÜRE=18T020: FOKES0168,E: FÜKEV ,LB: FOK 
EV+1,Y: FORT=0TOA0:NEXTT,E 

811 FORI=OTO200: FOKEV+37 ,I: NEXT: POKEY+3B 
ze 

812 FORE=2OTO1BSTER-i:FOKESÖOLSB,E:FOKEV, 
LB:FOKEV+1,YıFORT=0T070: NEXTT,E 

813 FOKEV+21 OÖ: FOKEV+S1 OÖ: FOKEV+S7,4:FOK 
EV+38,1:G60SUBF0C 

814 FOKEV,58: FOKEV+1 ,20: POKEV+154,0 
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Üs FOREV+Z1,1:GDO5SUBZO0G 


Compute mib 


Programme 


815 FODKESO1SG,23: Z=0: RETURN 
851 REM 
822 REM SOUND RDUTINEN 
35 REM 
254. FOKEW,C: FOKEFH,3O: FOKEW OL FOKEA, 135: P 
ÖEKEH,O:FOKEW, 151: RETURN 
8357 REM 
825 KEM 
857 FOKEW,O: FOKEA,IZH FOKEH, 10: FOKEFH,I:P 
0%&.ES4272,397: FDEEW, 12% 
853 RETURN 
E57 REH 
g40 REM 
841 FÜREW,O: FORI=0T035: FOKEA, 132: FOKEH,O: 
FOREFH, I: FOKEFL ,„S=:FOKEW, 1297: NEXT:RETURN 
842 REM 
643 REM 
844 FDEEW,O:FORI=0TD10: FORT=0TO10: PFDKEA, 
14: POKREH, 6: FOEBEFH,T 
845 FOKEFL „5: FOKEW, 17:NEATT,I: FOKEW, O:RE 
TURM 
845 REM 
847 REM 
849 FOEEN ,O: FORI=OTO7: FORTSOTD2U: FOKEA, 1 
3: FOKEH,„O0: FÜKETL ,O: FOKETH,8 
847 FOKEFH, T: FOKEFL „5: FOKEW „55: NEXTT,I:sF 
OKEW, 0: RETURN 
8ä0 REM 
Böl REM KOLLISION MIT MANN 
852 REM 
855 GOSURS4B: FOKEV+Z1,1:50=80+1300; 


DOGSUE 
1025: FOREV+20,0: Z=l \ 


: 864 FORI=3TD5: FOKE47 152+ 1440865 ,3725 NEXT 


855 RETURN 

Po REM 

701 REM GAME DVER 

?O2 REM 

205 5C=SC+100: F=F-1:GOSUB1026: IFF=OTHENF - 
=5: 5070997 

705 RETURN 

707 PRINT’W":SFOKEV+Z1,0:K=0: 
Ek (532703 ANDZSF 

B08 FORT=0T0B: A=0: GOSUBF13:A=11:G0SUB9153 
ı9%=12: 505UB913:A=15: GDÖSUB913:A=i 

707 GOSUB91S3: 505URF13: A=15: 60SURY13:A=12 
: GOSUBP13:A=115 6DSUBPF13:NEXTT 

710 FOKEV+27,0:Z7=0:B=0 

911 IFSEC>HITHENHI=SE 

P1Z FOEEWZ,O: PCKEW, 0: N=0: 1U=22: 50-0: 6=0:6 
070217 


7135 FORES45,A: PRINT" SRIERTIIERT "TAB (127 " 


FOKESS270,FE 


ee De Zr a 

714 FORI=0T0B0: NEXT: RETURN 
977 REM 

G9B REM HDEHLENSYSTEM 

7797 REM 


1000 FOKE645, 14:1 PRINT"LHHHE 
HHHHHHHHHHHHHHHHHHHHNHHH" S  » 
1002 PRINT"HDEI _JEDEHHHHHHHHEEDEDEDEHH 
DEDEDEDEDHH" ; ö 
1003 FRINT"H& 


EHHHHHHHHH 


MNUUGUOF MR 
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BH"; 
.1004 PRINT"HA 
CH"; 
1005 FRINT"H@ 
BH": 
1006 FRINT"HHL 
FEFL CH"; 
1007. PRINT" HHA< << CHHHHHHHHHHHHHOHNÖSSSANSA=HH 
HHH-L CH"; 
1008 FRINT"HHI 
DHHA EH"; 
1009 FRINT"HA MP 
BH@ CH"; 
1510 PRINT"H@ WY \- 
EHI BH" 3 ; 
1011 PRINT"HA OT xZ 
B& CH"; 
1012 PRINT"HHSGFGFFHHEBFBFSFFHHESFSFL 
CA IH"; 
1013 PRINT"HHHHHHHHHHHHHHHHHHHHHHHHHA 
B& CH"; 
1014 PRINT" HHHHHHHHHHHRRHHSSHASÖHHHHHHE 
EHL BH"; 
1615 PRINT"HDEDEDEDEDEDHHEDEDEDEDENEI 
BH& CH" 5 
1015 PRINT"A [1 
CHA BH"; 
1017 PRINT"A WIN WY WY 
EHA CH"; 
1018 FRINT"e@ xZ xZ xz 
BHı EH"3 
1019 PRINT"A 
GHHL CH" 3 
10721 PRINT"A 
EHDI CH"; 
1022 PRINT"@ SE 
EH"z 
1023 FRINT"A WY \r 
WY CH"; 
1024 FRINT"@ XZ 
xZ BH"; 
1025 PRINT"HEFHHGEF ; 
; EFHHGFEFHH" ; 
1024 PRINT"EIS © Iere 3 
1027 np RT 
&"SC5 
1028 RETURN 


BRVVYST BT 


KFGFGEGSHHHHHHSGFFEHHGGFG 


JEDEDEEHHDDEDEDEDEHHEHH 


[1 MP 


EHHFGSFSFGEHHGFEFGHHFGF 
JEHDEHHEHBEDHHHHHHHHDEN 


MNNUBOOP "7 





1700 REM 
1901 REM BASISSTATION 
1702 REM 
2000 FOHES45, 14: PRINT" 
2001 FRINT" + ae: + 
Ti Tr "7 
2002 PRINT" Tor - 7 
> 
2003 PRINT" = > u r + 
+ | 
2004 PRINT" acä E2 
: Tr "z 
2005 PRINT" an + -r 
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HI Kun pur Ban Bin par Aue dj 


Gompuhe mi 


Mm 
a 


ns E 
2005 PRINT" 7 


Un 
Ei 


Au 
z101 PRINT" 7 De 7 or 
= [2 = er Er} ® 
2102 FRINT" + 

=>HHHH?— + "4 
21053 PRINT" 
HHHHHHL 17 "5 
2104 FRINT" #HH | SHHHHHRHHHNH-——HHHH—HHHH | 
HHHHHI HH IH?" 5 

2105 PRINT"$HHHH (HHRHHHHH——HHHHHHHH —HHH 
IHHH] HHHH |H" 3 

2106 een 


4 
4 
4 


=#HHHH?— HH] 


= FHHHHHHHH?-—-, = SHHHH| > 


an umulim 
Ban53SS33355 E 


z108 PRINT"3 3.05 3 HHHT_HHI HH 105 3 323 3 3 3 3 5 3 


„marunm uumzn on iu 
TSITTIEETENN 


2107 FRINT"3 33 35 #HHHÄHHHHHH } 0333339234353 


Pl 
Bo5ar535 T 


z110 FRINT"337 


„Na 
"RINT" 
F 


s5+ElI IT ] EH Tenssenat,;; 


3 $HHHHHHHHACHÄHHHHNHR 25 3 335 


Pe Tr 
n 
Lam; 
z ar 

au 0 zw 


” 
pi 
Nu 
Da Zu 7u Zu #7 Zu Im 
Eee 


wo 
u 


[ee Bu 7 u MET Tone SEEN 0 a) 


za 
= 'a 
Dar ver ar var an ee a EEE NE 


KT] 
a. 


mem De Mur Two 7 
Du Du me Tu 7 


Er 


nz. 
zu. 


SETRT ge Bun (ge Ban oa 


BT} 
zu 


[ae T u ER 7 ww vn) u Er De ze 7 
zu 


ee 
=) 
De 
b} 


DI man a a a u fi Ge 


SD 


FRINT' ee -r T 


[ps 
2261 FRINTIERX: 176= ME -- - + 


os 


2202 PRINT: 176-8 . 


H,. 
# 


22053 PRINT" = = er 
r -[ u 
2204 FRINT" = er 
2. on z 
2205 FRINT" + re er 
. "1:60T0743 
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Funktionstastenpro- 
grammierung Heft 11/85 


In „Compute mit“ 11/85 war auf Seite 20 
ein Programm von mir abgedruckt, die 
Routine  Funktionstastenprogrammie- 
rung. Leider mußte ich feststellen, daß die 
Zeile O nicht mit abgedruckt wurde. Dem 
korrekten Programmablauf schadet dies. 
nicht, da die Zeile nur den späteren Pro- 
grammnamen erthält. Aber es wird ohne 
diese Zeile ein Programmfife mit einem 
Namen erzeugt, der nur aus Leerzeichen 
besteht. 

Waldemar Raaz, Nordhorn 


Redaktion: Die von Ihnen angesprochene 
Zeile fehlt tatsächlich. Wir bitten dieses 
Versehen zu entschuldigen. Die fehlende 
Zeile 0 tautet: 

I REM ""* FÜNK.-TAST.-BEL. 


% 


Raubkopien 


Der frechste Fall des Raubkopierens ist 
mal wieder. eingetreten. Ein Computer- 
freak tippt ein Programm ab, ändert 
„stümperhaft“ die REM-Zeilen und 
schickt es einige Zeit später an einen an- 
deren Zeitschriftenverlag ein. 


50 GEHT BAS NICHTIN 


So geschehen in Ausgabe 10 Ihrer Zeit- 
schrift mit dem Programm „The Castle of 
Dr. Green“. Dieses Spiel wurde bereits in 
ger Ausgabe 6 der Zeitschrift „C-64“ un- 
ter dem Namen „GHOST MANOR" veröf- 
fentlicht. Solche „linken Tricks“ sollten 
nicht zur Gewohnheit werden. Ich möchte 
Sie nicht dafür verantwortlich machen, 
denn Sie können nicht alle Programme 
aus sämtlichen CGomputerzeitschriften 
kennen. 

Markus Hillehrand, Wenden 
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Redaktion: Zunächst bedanken wir uns für 
Ihre Aufmerksamkeit und Ihr o.a, Schrei- 
ben. Dank der zahlreichen Zuschriften 
und der Aufmerksamkeit unserer Leser 
konnte diese Doppelveräffentlichung auf- 
gedeckt und dem Autor die Honorarzah- 
lung entzogen werden. Natürlich möchten 
wir unsere Leser vor „geklauten“ Program- 
men schützen, aber das ist leider nichtim- 
mer möglich, da wir tatsächlich nicht alle 
Programme des Marktes kennen. Wir kön- 
nen an dieser Stelle nur an die Ehrlichkeit 
unserer Programmautoren appellieren 
und unsere Leser aufrufen, jede Doppei- 
veröffentlichung dem Verlag mitzuteilen. 
Das unsere Redaktion sich dann eventuel- 
le rechtliche Schritte vorbehält, versteht 
sich wohl von sefbst. 


Lange Programmzeilen 
bei VC-20 Programmen 


In der Gompute mit 10/85 sind die Pro- 
grammzeilen des Spiels „Sub-Zone" so 
lang, daß der VG-20 Sie nicht aufnimmt. 
Wie kann man nur so lange Programmzei- 
len verwenden, wo doch jeder weiß, daß 
der VC-2G diese dann nicht annimmt. 
Hans-Jürgen Uber, Braunschweig 


Redaktion: Das Problem der zu langen Pro- 
grammzeilen für den VC-20 ist mit Sicher- 
heit allen Programmautoren bekannt. Um 
aber die Programme richtig zum Laufen zu 
bringen, können Sie einfach Abkürzungen 
der Befehle in den betreffenden Pro- 
grammzeiien vornehmen. Wir können die 
software-Autoren nur bitten, die Länge 
der einzelnen Zeilen zu beachten und den 
„Hackern“ dieses Problem von Anfang an 
zu erleichtern. 


Standard-Kassetien- 


recorder als Datasette 
In Ihrem Artikel aus Heft 11785 ist ein Kon- 


Sompube miP 


% % % Leserecke + Meckerecke %& 








densator ohne Baten eingezeichnet wor- 
den. Was ist damit? 

Warum ist zwischen E - 100K Potentiome- 
ter - A-F + Pin 1 der DIN-Buchse kein 
Gatter + Optokoppler als Schutz? Reicht 
der T0OK Poti um Rückwirkungen auf hö- 
heren Signalstromfluß zu verhindern? Ist 


diese Schaltung überhaupt ausprobiert | 


worden? 


Außerdem möchte ich zu dem Leserbrief 
„Fehlerhafte Listings“ aus der gleichen 
Ausgabe Stellung nehmen. Dieser Leser 
Scheint zu meinen, er selbst sei hundert- 
prozentig und habe keine Fehler!!! Es ist 
doch bedauerlich, daß es so was über- 
haupt gibt. Sicherlich ist es schmerzlich 
wenn man ein Listing eintippt und es dann 
Richt funktioniert. Aber der dann immer 
wiederkehrende Vorwurf, das Blatt sei so- 
wieso zu teueristlächerlich. Dann soll sich 


| derjenige „ne Bolette“ kaufen, dann weis 


er, wo er sein Geld gelassen hat. Ich finde 


: diese Argumentation „Kleingeistigkeit“. 


Guenter Schmidt, Berlin 


Redaktion: Ein Schutzgatter oder ein Onto- 
koppler zwischen den Kontakten E und 
dem Poti wären natürlich denkbar, aber 
wir halten dies jedoch für übertriebene 
Vorsicht, die zusätziich noch unnötigen 
Arbeitsaufwand erfordert. Der Kondensa- 
tor Ist tatsächlich ohne Werte angegeben 
worden. Sie benötigen einen Kondensator 
mit den Werten: 


: 0,1 mikre bis 5 mikro Farad 





Er dient nur zur Trennung von Signal und 
möglichem Grundrauschen welches das 
Triggern des Gatters beeinfiußen könnte. 
Im übrigen ist diese Schaltung getestet 


"worden und befindet sich auch derzeit im 


Einsatz. x 

Zu dem zweiten Teil ihres Leserbriefes 
möchten wir keine Stellungnahme mehr 
abgeben, da unserer Meinung nach von 
Ihnen alles Notwendige gesagt wurde. 









Wer bereits Besitzer eines Commodore 
64 mit Farbmonitor oder den neuen 6128 
PC besitzt. hat die Möglichkeit, ein von 
Commodore entwickeltes Modul an der 
Rückseite seines Rechners anzuschließen 
und auf diese Art an der Bildschirm-Kom- 
munikation teilzunehmen. 

Bildschirmtext ist janach Auffassung der 
Deutschen Bundespost ein Kommunika- 
tionssystem, das auf die Zukunft gesehen 
von allen Bevölkerungsschichten ge- bzw. 
benutzt werden soll. Commodore hat die- 
se Tatsache aufgegriffen und nun als er- 
ster Hersteller ein Btx-Modul entwickelt, 
mit dem jeder Homecomputer-Besitzer 
die Möglichkeit hat, Bix für seine Ansprü- 


che zu nutzen. Für einen Preis von ca. 


Rechner und Modul zusammen ermöglichen die Teifnaknıe an Bix. 


600,-- DM ist dieses Modul bereits im 
Fachhandel erhältlich und durch recht 
einfache Handhabung an den Rechner an- 


Mailboxen ist ein neues Kommunikationsmedium, das in der Gompu- 
terwelt zunehmend an Bedeutung gewonnen hat und auch im Home- 
computer-Bereich verstärkt eingesetzt wird. Der Syhex-Verlag stellt 
einen neuen Mailbox-Führer vor. 





Das Buch wendetsich vor allem an die Ho- 
me- und Personalcomputer-Besitzer, die 
sich für die Telekommunikation interes- 
sieren, 


Einiges aus dem Inhalt des Buches: 


In einer Einführung erklärt der Autor die 
wichtigsten Grundlagen der Telekommu- 
nikation und geht auf die benötigte Ausrü- 
stung ein. Es folgen Tips zum Umgang mit 
Mailboxen und zum Einsparen von Tele- 
fonkosten. 


Den weitaus größten Teil des Buches fül- 
len jedoch umfangreiche Daten über die 
verschiedenen Mailboxen. Die Dienste der 





einzelnen Mailboxen werden beschrieben 
und Menüs werden angegeben, die man 
als Anrufer auf dem Bildschirm sieht. 


Der Leser dieses Buches weiß daher im- 
mer bereits im voraus, was ihn erwartet 
und spart so Zeit und Geld. Auch die Dien- 
ste der Post-, Telebox und Datex-P werden 
beschrieben. 


Fazit: 
Dieses Buch beschreibt die wichtigsten 


. Mailboxen und ihre Dienste und stellt für 
den Leser und Anwender ein nützliches 


Hilfswerk dar. 


Gompute mi 





schließbar. Natürlich bedarf es vor einem 
Gebrauch noch einer kurzen Einarbeitung 
und etwas Gewöhnung, aber schon nach 
kurzer Zeit dürfte es Jedem gelingen, die- 
sen Service in Anspruch nehmen zu kön- 
nen. 

Selbst wenn Sie noch nicht Besitzer eines 
0-64 oder 6 128 PC sind, bietet die Com- 
modore-Lösung auch von der finanzielten 
Seite ein gutes Angebot, denn für einen 
C-64 mit Farbmonitor, Diskettenlaufwerk 
und Modul müssen Sie nach den heutigen 
Marktpreisen nicht mehr als 2.500 DM 
zahlen. Wer also Interesse hat an diesem 
zukunftsorientierten Kommunikationsser- 
vice istsehr gern im Kreis der Btx-Teilneh- 
mer willkommen. 





Sybex-Verlag, Düsseldorf 


ISBN 3-88745-620-3, 
Preis 14,30 DM 
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Das Raumschiff „Ceroia V" gleitet durch das unendliche Weltall auf der Suche nach seinem 
Heimatplaneten. Rings herum ist das Raumschiff von Einsamkeit und einem riesigen Meteori- 
tenfeld umgeben. 











Auf Ihrem Flug durch das Meteoriten- __ 
feld müssen Sie darauf achten, daß 
Sie den auftauchenden Meteoriten 
durch geschickte Ausweichmanöver 
und sofortiges Reagieren auswei- 
chen. Das mag vielleicht sehr einfach 

1 klingen, ist es aber nicht. Ihr Raum- 

schiff wird nach einer gewissen Punktzahl 
(500) immer schneller und somit wird auch 
“ für Sie als Pilot und Kommandant der Flug ständig 
komplizierter. Insgesamt vergrößert sich die Geschwin- 
digkeit Ihres Raumschiffes sechsmal, so daß es schon eini- 
ger Aufmerksamkeit und viel Geschick bedarf, Ihr Raumschiff si- 
cher durch das Meteoritenfeld zu steuern. Die Anzahl der Raumschiffe 
für diesen Flug ist auf 4 Stück begrenzt. Steuern können Sie Ihr Raumschiff 
mit dem Joystick. 


REM -- TURBO-JET == 
REM -- WRITTEN BY U.BRUHN — 


REM ——- {DIOPYRIGHT 1985 -— 


SOsoifibaäl- © 
2 
m 
zZ 
l 
l 
| 
| 


i1 GOSUB2000: REM DATEN EINLESEN 

12 SOSUBLOOS:REM BILD AUFBAUCHEN 

13 REM ####%% HAUPT SCHLEIFE 
14 POKEV+21,A: POKEV,50: POKEV+1 , 90: POKESI+4, 129: FOKESI+24,10: FOKESA334 ,1 
15 POKEV+31,0:FRINT"B"3 :FORI=OTOS: POKEZ040+1 „128: NEXT: POKEV+39,15 

i& SYS49155:A%= RND(TII#12) : AX=AZHIO 

17 FOKE1053+A% „55+LE: POKESSSSSHAZ „INT {RNDSTII 14 +1: FOKESI +1 ,A%/40 

18 5=5+1: PRINT’ IIikcRihBEEKERFIRI PR RE re" 5 

17 FRINT"B"s: IFS=5S00THENLE#= 1: GDTO4000 

20 IFS=10090THENLE=2: BGOTD4000: WRITTEN 

21 IFS=1500THENLE=3:G60T04000:& (C)BY- 

22 IFS=2000THENLE=4:GOTO4000: UWE BRUHN 

23 IFS=2500THENLE=51G60T04000: i 

2& REM####GSAME DVER 77 

27 IFFEEK (V+31)< >1THENI1& 


=8 GOSUB3030: POKESI+24,,01 IFA=2535-14THENPOKEV+1 „70: POKEV ,SOFBOTOSZ 
27 FPOKEV+21,0 











12185 u Gompute mib = 





jrogramme 


30 GDBUBAO20 
1 PRINT'ERERTERDI 





KEPRESS FIRE !I"s POKE&46&, INT{RND<TI) #255) 


Ss5 POKESI+24,03: POKEV+3Y, INT <RND<T1)#255) : IFPEEK (56320) C>111THENZ1 
Ih PRINT": FORI=0T039: SYS49165: NEXT: PRINT"E"; 


37’ BaTO14 
50 RE K#eHtkt GAME DVER 
S2 PRINT '"EHERERERNNERERRRERRBTRE RB NME OVER": POKESI+24, 0: BOBUBIOOO 





54 FÜKES45 „ INT{RND (1) #6) +14 PE=INT (RND (13812) +13 POKEL063+ (404PE) „AS+LE 


55 POKESSISSS+ (40«PE) „INT RND (1) #255) 1 PRINT "BI"; 


: 5YS549155: IFPEEK (568320) <>111 THENS2 


57 M=0: 607012 


1000 
1001 
1902 
1963 
1904 
1005 
100& 
10907 
10197 
2000 
2001 
2002 
2003 
20904 
2005 
z008 
2007 
2008 
2009 
2010 
2020 
2040 
3000 
3010 
3020 
5030 
3040 
35050 
3050 
3070 
#900 
4010 
4020 


4025 
4030 
4040 
4050 
#080 
6000 
[eh 20} 
6020 
so3o 
So40 
050 
1107-18) 
8000 
8001 
8002 
E003 
8004 


REM ###Rat BILD AUFBAUEN 
PRINT'W"SFORI=OTQDL I: PRINTINEXTI 
FORISOTO39: PRINT"EI-"3 sNEXTI:REM "Et + SHIFT" 


S=0: PRINT’BESCORE =": 5: LE=0: A=255 

: POXEV+S „130: POKEV+7 , 192: FOKEV+4 „170: POKEV+5, 192 
PRINT"EMLEVEL 2 "LES POKEV+Z, ZIO:POKEUsZ, 172 
FRINT' Bil i.'- Il BBY U, BRUHN a 
FRINT’RpkREBREREN. 







1785 BY TRONIEC-VERLAG 
RETURN: REM 
REM KIECHREHT - 
PRINT" ab 11 17 Be Ze Be | Gr IR 9 





' Eh | Lil a I a LS i 
PRINT "sSREBeBUBrEe fl Re en | 
v-53248: POKEV+3S, 9: PO KEV+S2 ‚0151=-54272Z: POKEV+21,0 
EEREREN NN: UWE: DEREN 













"+CHRE$ (B) +CHRS (142) 





REBITTE WARTENE | 
Bene E" :POKESI+24 ,151 POKESI+6,240 
GOSUBB003 | 
POKESI+4,17:1 FORI=150TDIOSTEP-3: SYS491451 POKESI+1, Is FORLI=0TD10: NEXTU, I 
FOKESI+24 ,01 
GOSUBLO0O 
POKES6334 ‚0: POKE7B8, 59: POKE789 , 1921 POKES6334 , 1: POKES3270, 1351 601052 


5 EXFLOSION 

POKESI+24,15: FÜKESI+1 ,4: POKESI+4, 129: POKES&3I4,0 
FORI=6T08: FORO=OTO1O 

POKE2040 ,130: POKEV+39 ,DıNEXTO: 

FORD=0T010: POKE2040, 127: POKEV+37,0:NEXTO,I 

RETURN 

REM Karen NEXT LEVEL ! 


POKESI+24, Pal FOKESIEN, 17 
FRINT'"'ERERERDERTTT AERULLIRBEeR LE; "I" 
FORTE TOSSs Fan FRSERRE PRRRRFErrRre  MIDEIRE,I,1) 
POKESI+1 ,150- 1#24 PRINT" 1 SYS49165: IFPEEK (V+31) =1 THEN2B ; 
FORO=OTOSS: NEXTO, Iı FOKESI+4, 129: POKESI+24,15 

G0TÜ1& 

E 

REM #438 LIVES = LIVES -i 

IFA=255THENA=A-2: G60TO4050 

IFA=253THENA=A-4 4 50T06050 

IFA=2497 THENA=A-B 

FPOKEV+21 „ArRETURN 







“ ME + GRAFIK 
READAs IFA=-1THENBOOS 
POKEA9185+K ,‚Ask=K+1: T=T+A: G0T08003 


Compute mit 














Die Redaktion von „Gompute mit“ und die Programmierabteilung unseres Hauses haben 


speziell zum Weihnachtsfest 


Super- 
Programm- 
Pakete 





software-service 





zu revolulionären Preisen zusammengestellt, Die einzelnen Pakeie um- 
fassen alle hereits veröffentlichten Programme aus der Zeitschrift „Gom- 
pute mit“. 

Daneben bieten wir Ihnen aber auch noch Programmpakeie aus der Zeit- 
schrift „Computronic“ an. Wählen Sie das für Sie richtige unter den 
einzelnen Angeboten aus, Wenn Sie selbst keinen Computer haben, aber 
eine echte Überraschung für Verwandte oder Freunde suchen, finden Sie 
bei uns immer die richtigen Angebote. 





TOP-HIT Angebot Nr. 1 





Spielprogramme 

Karate / Firelegion / Memory / Spa- 
ce-Age / Planet of Death / 
Bestell-Nr.: COM PCK1 (Kass.) 35,-- DM 
Besiell-Nr.: COM PCD1 (Disk.) 40,-- DM 


8 37 % „Computronic“-Angebat # X # 





Super-Disk-C 64 [Top 10) 
High Music / Grand Prix / Brieftaube / GCadelon / 
Jet-Pac / Star Battle / Painter /Skeet / Snderer 
Space Comets 
Bestell-Nr.: CPD 1/85 - DM 75,- 


kukruchc 


12/85 


TOP-HIT Angebot Nr. 2 


Besteli-Nr.: CPK 1/85 DM 35,-" 


Bestell-Nr.: CPD 2/85 DM 40,- 





‚TOPSHIT: Angebot: Nr. : 


{nur or. 


Spielprogramme | EEE 


Galaxy / Vampir / The Maze Graze Ga- Sequenzer / Supermoni 64 / Micro- 
me / Tank-Buell / Super-Breakout / Tools / Disk 1.0 / IML 

Bestell-Nr.: COM PCK2 (Kass.) 35,-- DM 

Bestell-Nr.: COM PCD2 {Disk.) 40,-- DM  Bestell-Nr.: COM PCD 3 40,-- DM 


6-64-Bonus-Kassette [Top 5) 


Firebird / Projekt / Monster Attack / High Noon / 
Roadpainter 


Super-Disk II-6 64 fTop5) . 
Firebird / Projekt / Monster Attack / High Noon / 
Roadpainter 





Compute mi 3 

















Spielprogramme Spielprogramme VC-20-Bonus-Kassette (Top 10) 


| Flowers1/ Fiowers HH /Geo-Zaxxon/ Einbrecher / Jupiter Rescue /Hospi- Düsi / Race ON / Lagy / Matron / Ohst 
ı Balinon-Shoot / Stuntman tal / Dangerous Planet / Dino-Eggs Derrasende Malscher / Powerpack / 
Buffalo Bill / Prost / Fressman 


Bestell-Nr.: COM PVK1 30,-- DM Bestell-Nr: COM PVK2 30,-- DM  Bestell-Nr.: VPK 1/85 DM 40,-- 













\ 


| Spielprogramme Spielprogramme 
S0S-Schifishruch / Schatztaucher / Shaolin / Jumping Joe / Gity-Runner / 
Gar Race / Data-Maker / MERGE-Rou- OLD-Routine / Zeichenformer 
tire : 
Besteli-Nr.: COM POK1 {Kass.} 30,-- DM Bestell-Nr: COM POK2 (Kass.) 30,-- DM 
Bestell-Nr.: COM POG? (Disk) 35,-- DM Bestell-Nr.: COM POC2 (Disk) 35,-- DM VdS Rn chen 
kein einzig es Computerspielaus dem Tronic-Verlag 


KERSISRENSSEHERSHSHEHSHErEHEHEHSHErS EHEN SrEner er 








Spielprogramme .  $pielprogramme Anwenderprogramme 


0-Bert / Tower /inka-Sogra*/Duell/ Cave-Runner / 3 D-Lahyrinth / City- Super-File / Data-Wandler / Daten- 
Alien-Hunter lander / Etis / Demon Attack verwaltung / Tastaturbelegung / 


Bestell-Nr.: COM PSK1 (Kass.) 30,-- DM Bestell-Nr.: COM PSK2 (Kass.} 30,-- DM REM-Killer / *Single-Disk-Backup / 

Bestell-Nr.: COM PSD1 (Disk.} 45,-- DM  Bestell-Nr.: COM PSD2 (Disk.) 45,-- DM *Discshow 

"nur auf Kassette lauffähig Bestell-Nr.: COM PSK3 (Kass.) 40,--DM | 
Bestell-Nr: COM PSD3 (Disk.} 55,-- DM 


* nur auf Diskette lauffähig 





BE ARECEEEHERUNE "Beachten Sie bitte, daß Sie 
Schneider-Super-Disk (Top 5) Schneider-Bonus-Kasseite (Top 5} bei Bezahlung per Vorkas- 


Super Miner / GPC-Bert / Gonan’s Castie / Zau- Super Miner / GPG-Beri / Conan’s Castie /Zau- | se (bar, Scheck) zusätzli- 
berschloß / Snider's Maze berschleß / Snider’s Maze che Portokosten sparen. 





Bestell-Nr.: SRPD 1/85 DM 48,- Bestell-Nr: SRPK 1/85 DM 38,-- 


32 Dr Sompube mib | 12/85 


Programm 


Ritter Erik/Grand Prix/Sprilehilte 


Firebird/High Music 
Multi-Key/S-Tool 69/ 
Interrupt-Pragramme 
Spritehilfe/Diskloader/ 
Directory 
Tape-Directory/Asımon/ 
Data-Generator 

Fast Load 
Diskmenitor/Zeichensatz 


Reassembler/Maskengenerator 


Det 64/Treiberprogramm 


tür 1526/MPS 802 Decelevator 


Sepertanedirectory/Renew/ 
Kontrollahfrage 
Wideo-Utilities, 

Mutti-Basic 3, Bildeditor 


Reactor/Goncentration/Datenbank 17,30 DM 


Warlords/Gaverns of Beath 
Alien-Destroyer/Duell 
Ocean Eame/Tennis 

The Gaves 

Gardener 
Mauern/Widerstand 
Space-Comets/Erdspalte/ 
Sprite-Data 
Autostart/Bestellschein/ 
Roadaainter 
#ardcopy/Space-Fighter/ 
Data-Generator 
Manster-Attzck/Block- 
Painter /Epson-Drucker 
Projekt/Datenbank 
Spiders/The Basic 

High Noun/Skeet/ 
Grafik-Besigner 
Painter/Star-Baddie/Editer 
Wüstenrally/Jet-Par/ 
Black Moore Gastle 
Arieftaube/Gadelon 


Außerdem können Sie alle Kassetten oder Disketten aus } 








Preis/ Preis/ Bestell-Nr. 
Kasseite Diskette 
19,50 DM 24,50 DM E52 
24,50 DM 23,50 DM 662 
15,-- DM 21,-- DM UE 2/85 
21,-- DM - VE 3.1/85 
15,-- IM 21,-- IM BC 3.2/85 
10,— DM - uc 4/84 
20,-— IM - UG 5/85 
15,-- DM 20,-- DM UL 6/85 
14, 0M 19,-- IM Uc 7/85 
15,-- DM - UC 8/85 
17,-- DM . 23,-- DM Uc 9/85 
23,50 DM HE/G-1 
14,50 DM 19,50 DM HG/C-2 
24,50 DM 29,50 DM -NG/C-3 
17,50 DM 23,58 DM HC/C-4 
17,50 DM 23,50 DM HC/C-5 
17,50 DM 23,50 DM BO/G-8 
8,-- DM 15,— DM 4 
15,—— DM 23,50 DM 651 
16,50 EM 23,50 DM E66 
15,50 DM 19,50 DM er 
16,50 DM 23,50 DM [rg 31 
16,-- DM 23,50 DM ct 
16,50 DM 23,50 DM G 101 
17,58 DM 23,50 DM 612 
17,50 DM 2350 DM G22 
17,50 DM 23,50 DM c32 
G42 


19,50 DM 


24,50 DM 


den vorangegangenen Ausgahen nachbestellen. 


Heft 5/85 


Commodore 
Bestell-Nr. COM G 1/1 
Bestell-Nr. GOM D 1/1 


Schneider 
Bestell-Nr. COM 5 1/1 


Heft 8/85 


tommodore 
Bestell-Nr. COM CK 4/1 
Bestell-Nr. COM ED 4/1 


Schneider 
Bestett-Nr. COM SK 4/1 
Bestell-Nr. GGM SD 4/1 


Heft 11/85 


Commodore 
Bestell-Nr. COM CK 7/1 
Bestell-Nr. COM CD 7/1 


Schneider 


Bestell-Nr. GOM SK 7/1 
Bestell-Nr. G0M SD 7/1 


12/65 


Heft 6/85 


Commodore 
Bestell-Nr. GEM GC 2/1 
Bestell-Nr. COM D 2/1 


Schneider n 
Bestell-Nr, GOM 5 2/1 


Heft 9/85 

Commodore 
Bestell-Nr. GOM CK 5/1 
Bestell-Nr. COM CD 5/1 
Schneider . 
Bestell-Nr. E0OM SK 1/1 


" Besiell-Nr. E9M SD 1/1 


Aus diesem Heft: 
Commadore 
Bestell-Nr. COM CK 8/1 
Bestell-Nr. COM 6D 8/1 
Schneider ö 
Bestell-Nr. GOM SK 8/1 


Bestell-Nr. COM SD 8/1 


sofl 


Programm 


Besteilschein/Glücky 
Moitigraph/All Aammer 
Zyklo/Meteorit j 
Garten/Schloß Gruselstein 
Fressman/Dullaw 
Prost/Buffalo Bill 

Jey Man/Powerpack 

Der rasende Malocher/ 
Frarkie goes to Pharao 
Matron/Odst 

Race On/bagy 

Nürkurg 3D/Düsi 
Zyklo/Geldsammier 
Star-Wars/Punktelresser 
Catch the Fish/Mister Jump 
Ghosts Eggs/Fux Hunt 
Collector/Break Dut 
6-Bert/Salvaye Crew 
Sprites/Space-Battle 
Grafik-Painter 

VIC-Liock 

Decelerator 

Joypaint 


Disassembler, Old-Programme 


Autorennen 
Universal-Batci V1 


Computerschrift/Symbol-Swap 








Preis/ 


Preis/ 

Kassetie Diskette 
850DM  15,- DM 
11,-- IM 15,50 DM 
11,-- DM 19,50 DM 
14,-- DM 19,50 DM 
14,-- DM 19,50 DM 
14,-- DM 19,50 DM 
‚14, DM 19,50 DM 
14,-- IM 19,58 DM 
14,-- DM 19,50 DM 
14,-- DM 19,50 DM 
14,-- DM 19,50 DM 
11,50 DM = 
14,50 DM - 
14,50 DM = 
14,50 DM - 
14,50 DM - 
16,50 DM - 

13,-- DM 19,-- DM 
10,-- DM - 
g--IM : - 
8, DM = 
12,-- DM u 
10,-- DM = 





11,-- DM 
9, DM 
18,-- DM 


Keyboard Toolkit/Farbdecodierung 11,-- DM 


. Madin 


Painter/Box-Befehl 


Naschinensprache-Moritar/ 


Bisk-Hilfe 

Basic, Maschinen-Kit 
Fallschirmspringer 
Beisterschloß 
Zeichendesigner 


Mini Gar Race/Intercepter 3 D 


Suner-Miner 
GPC-Bert 


E Conan's Bastie 


Compute mib 


[ee Be a ze 


9,-- UM 
14,-- DM 24,-- DM 
15,-- DM 25,-- DM 
12,-- DM 22,-— Di 
9,-—- DM - 
9--IM  - 
12,50 DM - ü 
17,50 DM 26,50 DM 
14,-- DM - 
14,-- IN - 
15,50 DM m 
Hett 7/85 
Commodore 


Besteil-Nr. COM CK 3/1 
Bestell-Nr. GOM 69 3/1 
Schneider 

Bestell-Nr. C9M SK 3/1 
Bestell-Nr. GOM SD 3/1 


Heft 10/85 
Commodore 
Bestell-Nr. COM CK 6/1 
Bestell-Nr. COM 60 5/1 
Schneider 

Bestell-Nr. COM SK 6/1 


Bestell-Nr. GOM SD 6/1 


Besiell-Hr. 


Y6l 
v7 
vs 
v9 
yıoı 
yızı 
v22 


v32 
v2 
v52 
vB2 
HE/V-1 
HG/V-2 
NC/V-3 
KG/V-4 
KG/N-5 
HC/V-6 
WW 2/85 
UV 5/85 
UV 6/85 
UV 7/83 ' 
uu 8/85 
UV 9/85 


us 3/85 
us 4/85 
uS 5/85 
us 5.1/85 
US 6,2/85 


087/86 


US 8/85 
US 8/88 
HE/SR-3 
HE/SR-4 
HG/SR-5 
HG/SR-5 
SA 42 

SR 52 


. 5862 





nare-service 


Telefonische Bestellungen unter der 


Rufnummer: 


05651/40643 oder 406.93 
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‚Programme 


8005 
B00& 
8007 
BOOB 
8009 
8010 
8011 
8012 
8013 
8914 
8015 
BOl& 
8020 


R$="WELL DONE NEXT LEVEL rt | I, oo je 
DATA32,103,172,169,135,133,250,162,0,160,0,189,1,4,157,0 
DATA4,189,1,216,157,0,216,232,208, 241,234, 189,0,5,157,255 
DATA4,189,0,217,157,255,216,232,224, 225,208,239,96, 234, 173,0 
DATA220,41,1,208,10,173,1,208,201,45,240 „3,20&,1,208,173 
DATAO,220,41,2,208,10,173,1,208,201,135,240,3,238, 1,208 
DATA7&,49,234,224,0,208,251,76,49,234,234,169,0,141,255,3 
DATA169,132,160,192,32,30,171,238,255,3,173,255,3,201,12,208 
DATA239,169,19,32,210,255,96,32,13,0,2,253 
DATA120,169,51,133,1,169,0,133,250,133,252,169,208 
DATA133,251,169,40,133,253,160,0,177,250,145, 252,200,192,255,208 ,247 ‚230 
DATA251,230,253,165,253,201,50,208,235,169,55,133,1,88,96, -1 

IFT< >23724THENPRINT"LSORRY, ERROR IN 8006-8019 !"3END 

Fi 

FORI=0T062: READAs POKEB192+1 „As NEXT 
FORI=0T0621ı READA: POKEB256+1 „Ar NEXT 

FORI=0T0624 READA:FOKEB320+1 ,As NEXT 

M£="| |. = L=! IS WRITTEN IN 1985 BY UWE BRUHN FOR THE TRONIC-VERLAG " 
M6=MS+". 1985 JOYSTICK PORT II PRESS FIRE TO START. GOOD LUCK ! tt“ 
DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,248,0,0,252,0,0,255 
DATA240,0,254,8,0,255,255,254,127,255,252,63,252,0,0,0,0,0, 0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATAO,0,0,0,112,0,15,252,0,31,143,192,62 „3,192,60,1,224,224,3 
DATA240,224,0,56,96,0,112,252,1,192,30,3,224,31,199,0,1,254,.0,0,0 
DATAO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
DATAO,0,0,0,112,0,15,124,0,30,255,192,62,127,192,61,249,224,227 
DATA243,240,252,60,56,97,227,240,252,109,192,30,227,224,31,215,0,1 
DATA254,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

B 

SY549289 

FORI=12800T0129197:READAı FOKEI „AıNEXT 

5 

DATAO,0,0,255,255,0,0,0 

DATAO,0,0,24,24,0,0,0,0,0,36,24,24,36,0,0 
DATAO,0,24,60,60,24,0,0,0,36,24,60,60,24,36,0 
DATAO,129,90,60,50,90,129,0,0,24,126,126,24,60,102,193 

DATAZ54 ,254,24,24,48,48,96,796,51,51,102, 102,204 ,204 ‚252,252 
DATA30,30,51,51,124,124,198,198,63,63,102,126,252,204, 248,248 
DATA&S,63,102,102,204,204,248,248,3,3,6,6,108,108,248,248 
DATAS1,31,48,62,126,96,252,252,60,66,153,161,161,153,66,60 

RETURN 

L 

L 

M=M+1: PRINT "ER 
IFM=135THENM=O 
POKES3272, 28: FOKE2040 , 128: RETURN 


Tin e 1777772 für den Commodore 64 





3; MIDECM$,M,1) 


B A SICRESET: gramm geschützt, d.h. esspringt bei „Reset“ o. „Restore“ wieder an den Prog rammstart, 


Schützen Sie mit dieser kurzen Routine Ih- 
re Programme vor Reset oder Stop / Resto- 141,2,128,169,7,141,25,5,141,1,128,141 
re. Nachdem das Programm gestartet 1026 DATAZ,128,162,0,189,16, 253,157, 4,12 
wurde {es muß mit RUN zu starten gehen) 8,7372,224,5,208,245,152,0,1B9,58,157 
kann man die Routine mit SYS40200 auf- 1030 DATA1S7,234,7,232,224,8,208, 245,96; 


rufen. Ab diesem Zeitpunkt ist das Pro- 


1000 FORK=OT057: READX: POKE40200+K , X: U=U+ 
XzNEXT: IFU< >6817 THENPRINT"ERROR" END 
1010 DATA120,169,234,141,24,5,141,0,123, 


169,0,32,113,168,76,174,167 
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CSompute mik 12185 


LOAD ERROR: 

Es kommt öfter vor, daß nach dem Laden 
von Programmen, die Fehlermeldung 
„Load Error“ auf dem Bildschirm er- 
scheint, 

Ab jetzt gehen Sie wie folgt vor: 

Listen Sie das Programm auf und falls kei- 
ne ungewöhnlichen Zeichen dabei sind, 
dann tippen Sie im Direkt-Modus (ohne 
For-Next-Schleife): 


POKE A3,PEEKj829} POXE 45,PEEK[831] 
POKE 44,PEEK(&30) POKE 46,PEEK(832) | 
CLR:RESTERE 


Nun listen Sie nochmals auf und Sie wer- 
den sehen, daß Ihr Programm noch in Ord- 
nung ist. 


MERGE: 


Möchten Sie zwei Programme zu einem 


binden, dann machen Sie folgendes: 
Nachdem das erste Programm (kleinere 
Zeilennummer) im Speicher steht, geben 
Sie: POKE 43,PEEK(45)-2:POKE 44,PEEK(46) 
ein. Dann nächstes Programm laden (grö- 
Rere Zeilennr) und anschließend: POKE 
43,1:POKE 44,8 


VERDUNKELUNG: 


Um Basic-Programme schneller zu ma- 


AUTOSTART: 


_tips & tricks 


Nach dem Start des Programmes mitSYS 40000, können Sie Ihr Programm (keine ab- 
soluten Programme) mit dem Befehl „NAME“, Geräteadresse mit Autostart abspei- 
chern. Bei der Datasette muß als Geräteadresse eine 1 stehen. 


adresse 1 geladen werden. 


1000 FORK=OTDLFB: READX: FOKE40000+K „Kr U=U 
+X3 NEXT: IFÜX >21B60THENPRINT"ERROR":END 
1010 DATA169,75,141,8,3,169,156,141,9,5, 
96,32,115,0,201,46,240,3,76,231,167,32 
1020 DATA115,0,201,24,240,3,76,8,175,150 
„0,162,0,730,122,177,122,201,34,240,11 
1030 DATA137,64,5,232,224,17,208,240,76, 
72,179,138,162,64,160,3,32,189,255,32 
1040 DATA115,0,201,44,230,3,76,8,175,32, 
115,0,232,47,201,9,144,3,76,72,178,170 
1050 DATA150,1,32,186,255,162,0,189,238, 
156,157,232,7,232,224,18,208,245,169 
1040 DATA232,141,36,3,169,7,141,37,3,17%3 
„20,3,72,173,21,35,72,120,169,39,141,20 
1070 DATAS,169,234,141,21,3,32,0,157,169 
‚20, 132,250,169,3,1332,251,169, 250,166 
1080 DATA45,164,468,22,216,255,104,141,21 
„3,104,141,20,3,88,169,87,141,36,2,169 
1090 DATA241,141,37,3,76,228,167,169,87, 
141,36,2,169,241,141,37,3,169,0, 32,113 
1100 DATA168,76,174,167,169,0,133,157,76 


„SB,„22% 


chen, z.B. beim Lesen größerer Mengen 
von Datas, kann man den Bildschirm aus- 
schalten mit: 








| Das Programm muß immer (falls es mit Autostart gespeichert wurde), mit Sekundär- 


POKE 53265, PEEK{63265JAND239. 
Einschalten wieder mit: POKE 53265,PEE- 
K(53265J0R16. 





PRINT-GENERATOR für Commodore 6% 





Das Programm ist vollständig in Maschi- 
nensprache geschrieben, wobei sich das 
Einleseprogramm selbst löscht. Es wird 
mit SYS 49152 gestartet, wonach man 
dann auf dem Bildschirm sein Bild erstel- 
len kann. Es wird weiterhin der Interpre- 
tereditor benutzt, wobei durch das Ändern 
einiger Basicroutinen das Scrollen nach 
unten verhindert wird. Dieser Effekt kann 
durch POKE 1,55 abgestellt werden. Er- 
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scheinen die Buchstaben in gelb auf 
schwarzem Hintergrund, erkennt man, 
daß man im Editiermodus ist. 

Durch Drücken der F1-Taste wird das er- 


stellte Bild in Print-Zeilen übernommen. ' 


Man kann sowohl mit allen 16 Farben als 
auch mit reverser Schrift arbeiten. 

Ist bereits ein Basicprogramm im Spei- 
cher abgesteilt, werden die Printzeiien au- 
tomatisch angehängt, sonst beginnen Sie 


Sompute mik 


ab Zeile 10. Da der letzte Punkt (Speicher- 
stelle 2033) nicht ohne weiteres geprintet 
werden kann, wird dieser, falls er gesetzt 
ist durch einen POKE-Befehl mit in das. 
Programm übernommen. 

Beim Herstellen der Maske sollte man auf 
die Return-Taste aufpassen, da sonst die 
Zeile als Basiczeite interpretiert wird und 
ein Syntax-Error auf dem Bildschirm er- 
scheint. 


35 


36 


werkstatt 


10 REM Rus RHEIN 
12 FREH # * 
14 REM * FRINT GENERATOR * 
15 KEM #* # 
38 REM * EY * 
ZOo REM * * 
ZZ REM * ERHARD TYART * 
z4 REM * * 
=& REM #* ANDREAS WEHNER *. 
z8 REM *# * 
=O REM #* GSOETHE STR.15 * 
S=2 REM # * 
s4 REM * 67535 ENKENBACH ALS.1i * 

=6 REM * ; * 
58 REM * * 
40 REM # %* 
50 REM a 2 2 502 2 2.2 2 2 2 2.2 22 2 2 2 202,2 222 2 2 2 2 
zu0 FÜR X= 49152 10 50151 

210 READBR: Y=Y+Q: FOKEX,„DO 

220 95=5+1 

=25 NEXT 

=30 IF 5 > 1000 THEN FRINT"ZIVIEL DATAS" 
:END ü 

z40 IF 5 x 1000 . THEN FRINT"ZUWENIG DATA 
GS":END ' 

z250 IF Y <> 122810 THEN PRINT"FEHLER IN 
DATAS"rEND 

z60 FRINTTÜRBDATAS OK. 

>00 FRINTEESRFRINT GENERATOR KANN MIT 3 
SYS 49152" 

310 FRINT"EREMGESTÄARTET WERDEN. " 

S00 NEW 


1000 REM DATAS 

1001 DATA120,169,92,141,20,3,169,192,141 
„21,3,88,169,0,141,33,208,169,7,141 

1002 DATA134,2,169,0,135,251,1697,160,133 
‚„252,160,0,177,251,145,251,200,208 

1003 DATA249 250,252,165,252,201,192,208 
‚241,159,0,133,251,169,224,133,252 

1004 DATA150,0,177,251,145,251,200,208,2 

49,220,252, 208, 245,169.96,141 „101 

1005 DATA2S3,141, 200,233, 169,234, 141,19, 

233,141,20,233,141,21,233,169,53,133 

1006 DATA1,96,165,203,201,4,240,3,76,49, 

234,172,2,8,201,0,240,58,165,43,133 

1007 DATA155,165,44,135,156,160,1,177,15 
5,240,23,160,0,165,155, 133, 158,165 

1008 DATA1S6,133, 159, 177, 155,170,200,177 
‚„155,134,155,133, 156,76, 116, 192,160 

10097 DATA2,177, 158,2 24,105,10,141 „234,7,2 

00,177,158,105,0,141,235,7,76,176 

1010 DATA192,189,10,141,2 234, 7,169,0,141, 

235,7,165,45,56,233,2,133,169, 133 

1011 DATA157,165,46,253,0,133,170,133,16 

8,169 ,40, 141,236, 7,162 ‚24,159,192 

1012 DATALSS,251,189,7, 133,252,160,0,177 

‚251,200, 201,32,208,25,192,40 ,208 

1013 DATA245,224,0,240,17,202,165,251,56 
„233,40,133,251,165,252,233,0,133 

1014 DATA252,76,208,192,224,0,208,17,192 

„40,240,7,232,142,60,3,76,11,193,142 


Compuhe mib 





1015 DATA60,3,76,11,193,232,142,580,3,162 
„6,142,61,3,134,251.134, 1598,134,155 

1016 DATA162,4,134,252,134, 159,169, 216,1 
33,156,169,16,141,56,3,169,0,141,67 

1017 DATAZ,168,170,142,652,3,140,63,3,141 
„64,3,32,49,195,32,210,194,32,17,195 


1018 DATAS2,75,195,32,17,195,32,64,195,23 
2,227 ,194,169 0,141 „67,3,174,61,3 

1019 DATA2SS, &0, 3,208, 3, 76, 133, 194,160,0 
„177,251 ‚200,201 ,32,20B, 10.192,40 

1020 DATA208,245,32,193,194,76,115,193,3 
2,193,194,76,153,193,32,49,195,32 

1021 DATA210,194,32,227,194,165,158,24,1 
05,40,133,158,165,159,105,0,133,159 _ 
10722 DATA1S5,155,24,105,40,133,155,165,1 
56,105,0,133,156,76,74,193,32,49,195 
1023 DATAZ2,210,194,32,17,195,172,63,3,1 
77,158,141,62,3,201,32,208,3,76,202 

1024 DATA1L93,177,155,41,15,205,66,3,240, 
16,141,66,3,32,44,195,160,0,145,167 

1025 DATA32,220,194,238,64,3,173,62,3,17 
0,16,3,76,239,193,173,67,3,201,0,240 
1026 DATA17,169,0,141,67,3,169,1465,160,0 
‚145,167,32,220,194,238,64,3,138,76 

1027 DATA10,194,173,67,3,201,1,240,17,16 
9,1,141,67,3,169,18,160,0,145,167 

1028 DATA32,220,194,238,64,3,138,41,127, 
32,27,195,160,0,145,167,32,220,194 

1029 DATA238,64,3,238,63,3,173,61,3,201, 
25,208,5,169,39,141,236,7,173,64,3 

1030 DATA201,60,176,3,76,119,194,173,63, 


'3,205,256,7,240,17,169,0,141,64,3 


1031 DATA32,17,195,32,64,195,32,227,194, 
76,153,193,169,0,141,64,3,141,63,3 

1032 DATA165,158,24,105,40,133,158,165,1 
59,105,0,133,159,165,155,24,105,40 

1033 DATA133,155,165,156,105,0,133,156,3 
2,17,195,32,64,195,32,227,194,76,78 


' 1034 DATA193,173,63,3,205,236,7,208,3,7& 


»73,194,76,162,1953,173,61,3,201,25 

1035 DATA208,10,173,231,7,201,32,240,3,3 
2,93,195,169,0,168,145,169,200,145 

1056 DATA159,165,167,24,105,2,133,45,165 
‚168,105,0,133,46,169,49,141,20,3 

1037 DATA169,234,141,21,3,1&9,6,141,33,2 
08,169,55,133,1,76,49,234,238,61,3 

1038 DATA145,251,24,105,40,133,251,165,2 
52,105,0,133,252,968,160,0,169,153 

1039 DATA1L45,167,32,220,194,96,230,167,2 
08,2,230,168,96,160,0,152,145,167 

1040 DATAZ2,220,194,165, 167, 145, 169,200, 
165,168,145,169,200,173,234, 7,145 

1041 DATA169,200,173,235,7,145,169,165,1 
67,133,169,165,168,133,170,238,234 

1042 DATA7,208,3,238, 235,7. 76,160,0,169, 
34,145,167 32,220, 194,98, 133, 215, 21 

1043 DATA&S ,6,215,36, 215 1& 2, 9,128 ‚112, 
2,9,64,96,170,189,205,195,98,234,165 
1044 DATA157,24,105,4,133,167,1545,168,10 
5,0,135,168,96,234, 169, 57,160,0,145 
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1045 DATA167,32,220,194,96,234,169,147,1 
60,0,145,167,32,220,194,169,19,145 

1046 DATA167,32,220,194,96,234,162,0,142 
‚62,3,162,2,142,237,7,174,62,3,224 
1047 DATA2,208,1,96,234,32,49,195, 
1,160,0,145,167,32,220,194,174,237 
1048 DATA7,189,219,195,240,9,145,167,32, 
220,193,232,76,128,195,167,44,145 
1049 DATA167,32,220,194,173,62,3, 


1659,15 


240,9,1 


DATAGENERATOR für 


Datagenerator ist ein sehr komfortables 
Anwendungsprogramm, daß es seinen 
Benutzern erlaubt, Maschinenprogram- 
me, Sprites, Zeichensätze etc. in Datas zu 
generieren. Falls der Speicher gerade ein 


100 
110 
120 
130 
140 
150 
140 
170 
180 
170 
=00 
z10 
220 
2350 
240 
250 
za0 
270 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


ERREREHEH FERIEN FRI EHE 
=*# #=#% 
er Krk 
#rH + 
Eh #Rr 
“er rt 
KHR Hr 
#R% kr 
ER “Hr 
Er ##%* 
nr Er 
RE arr 
Er FRE 
Er ER H 
FERN EX 
+ Er+ 
Er en 
REM ##* Er 
ZBE0 REM HERE 
290 PRINT"LH DATAS MIT 55491352, ANFRANGSA 
DR. „ENDADR. GENERIEREN" 
300 FORX=49 1527049567: READG: Wer: FOKEX,, 
DB:NEXT . 
310 : IFW<HSSAA97THENPRINT"L FEHLER IN DAT 
Da zsEND 
=0 FRINT"EH DATAS DE" 
330 DATAZZ,1243,173,165,170, 197 „188,245,5 
„1768,14, 756,72,178,1685,169,197, 167 
340 DATAZOS,„E,76,72,174, un 
201 ,0,240, SB, 165.43, 135,15 
san DATA1SS, 24, 135.158, one 1,177,1535, 240 
122,1580,0,165,155, 1235, 158,165, 158 
ETTe) DATALS3,159,177,155,170,200,177,155, 
134,155,157,136,76,40,192,1580,2,177 
370 DATAISS,24,105,10,141,2343,7,200,177, 
158B,105,0,141,225, 7, Fa, 100, 1F2 
390 DATBISF,10,14l, SEA, ve 187, 0,141,2353,7 


DATA GENERATOR 
MIT ERWEITERTEM 
SYS BEFEHL 
DEZEMBER 1784 
BY 
ANDREAS  WEHNER 


ERHARB TYART 


Basicprogramm enthält, werden die Data- 
zeiten direkt hinten angehängt. Man um- 
geht auf diese Weise Probleme, die mit 
dem Befehl „Merge“ in Zusammenhang 
stehen. 





werkstatt 


73,231 
1050 DATA231,7,168,32,162,179,2 
„152,1,160,0,189,0,1,2830,9,252,145 


„219,41,15,168,76,167,195,173 


1051 DATA167,32,220,194,76,177,195,258,6 


2,3,32,227 ,194,162,7,143,237,7,76 


1052 DATA1C4,195,144,5,28,159,156,30,31, 


159,129,149,150,151,152,153,154,155 
1053 DATASO,48,50,51,0,53,54,50,57,53,0 


Commodore 6% 


aufgerufen. 
Syntax: 
SYS 49152 Anlangsadresse, Endadresse 


‚„165,45,56,233,2,133,250,133 
3970 DATA25?2,165,46,233,0,133,251,133,253 
‚„169,0,141,233,7,165,252,24,105 


400 DATA4,133,252,165,253,105,0,133,253, 


160,0,169,131,145, 252,230, 252,208 

410 DATA2,230,253,169,18,132,2,160,0,177 
‚167,230,167,208,2,220, 168,433 

426 DATA1806,132,181,372,48,193,1580,0,189, 

G,1,145,252,230,752,708,2,230 

430 DATA253,202,16,242,198,2,185,158,197 
‚170,208,14,165,167,197,169,208,8 

446 DATA169,1,141,233,7,76,225,192,165,2 
‚240,15,169,44,160,0,145,252 

450 DATA230,252,208,2,230,253,76,151,192 
‚169,0,169,145,252,230,252,208,2 

460 DATA2Z0,253,165, 252,145, 250, 200,165, 

253,145,250,200,173,234,7,145,250,200 
470 DATA173,235,7,145,250,165,252, 133,25 
0,1685,253,133,251,173,253,7,208,11 

480 DATA238,234,7,208,3,238,235,7,76,122 
„192,224,169,0,168,145,250,200 

470 DATALAS „250 „165,252,24,105,2,123,45, 
165,253,105,0,133,46,96,159,0 

500 DATAL62,2,157,10,.2,207,16,250,167,15 
‚5,180,38,181,248,160,2,185 

510 DATA10,2,121,10,2,153,10,2,136,16,24 
4,202,16,234,216,162,5,32 

520 DATA109,193,9,48,157,0,1,202,16,245, 
167,4,189,0,1,701,48,208 

530 DATAZ,202,208,246,98,169,16,14,12,2, 
46,11,2,96,10,2,42,144 

540 DATA244,96,162,0,134,187,32,253,174, 
32,138,172,32,247,183,166,182,105 

S50 DATAZ0,149,167,165,21,149,168,232,23 
2,224,4 208,229 ,230,169,208,2.230 
560 DATAL70,96 


Gompubs mit 


32,221,189 


Das Programm ist ab 49152 ($C000) ab- 
gelegt und wird mit einem weiteren SYS 
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serie_ 
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In einer 2-teiligen Serie wer- 
den wir Ihnen die Tastaturver- 
waltung des Commodore 64 
etwas näher erläutern. Jeder 
der sich bisher noch nicht mit 
diesem Thema beschäftigt 
hat, findet hier die genaue Be- 
schreibung und Erläuterung. 


In 256 ASC II Zeichen sind 64 Steuerzei- 
chen enthalten. Das Bid eines Steuerzei- 
chens wird immer in Inverseform wieder- 
gegeben. Nach einem PRINT-Befehl wird 
der im Steuerzeichen beinhaltete Befehl 
ausgeführt. Mit der Tastatur kann man 
Steuerzeichen schreiben und somit den 
Steuerungsteil eines Programms elegant 
mit einem String darstellen. Mit Hilfe von 
vier Tabellen wird die komplizierte Bezie- 
hurg zwischen AsS0ll, Bildschirmcode 
und Tastaturcode erklärt. Tasten und Ta- 
stenkombinationen, mit denen das ge- 
wünschte Sieuerzeichen geschrieben 
werden kann, sind zusammengefaßt. Die 
Tastencode-Matrix wird ausführlich be- 
handelt und tabellarisch dargestellt. Die 
Tastaturordnung beim G-64 zusammen 
mit obenerwähnten Werten in Tabellen 
wiedergegeben. Mit einem Anwendungs- 
beispiel von Tastatur-Gode-Nummern in 
einem komplizierten Programm wird der 
Artikel abgeschlossen. 


Versuchen Sie eine Tabelle mit Hilfe eines 
kurzen Programms: 


FÜR I=0 TO 255:PRINT HCHAS(N);:NEXT 


zu erstellen, Sie werden sehen, daß der 
Drucker nicht das gewünschte Resultat 
liefert. Auch am Biläschirm wird es nicht 
richtig wiedergegeben. Ursache dafür 
sind die Steuerbefehle, die auch mit eini- 


gen PRINTCHR$() ausgeführt werden und. 


keinen Zeichenabdruck hinterlassen. Die- 
se Steuerbefehle werden in Inverseform 


{Weiß auf Schwarz anstatt Schwarz auf 
Weiß) abgedruckt, wenn man das obige 
Programm folgendermaßen modifiziert: 


FOR 1-0 TO 255:PRINT CHRSLA)- 
CHRS(I)CHRS{34)::NEXT 


Dennoch werden einige CHR$( ) nicht 
durch den Drucker zu bekommen sein, 
Parade-Beispiet dafür ist CHR$(I3), der 
unverzüglich CR {Carriage Return) aus- 
führt und keinen Zeichenabdruck hinter- 
laßt. 


nor 


TAEELLR-1 


aern ASC BEMER 
FTEHr BEMERKUNG. ZEHN KUME 
mr” 32” " Space 
nn a el 
e "a" en 
3'232" Stop a5 #8" 
a nz" 38 "8" 
s '’a Lieiss en er 
EB "a" Sara 
Tr [5 Er 
ee "m"  Bleck Sherc 4B "or 
3 'H"' Entr Sh+rec di "53% 
1a 4 Line Feed 42 "y" 
I m 43 "+" 
12 '"W a4," 
13 ?M Return 4a "-" 
13’ Gröklein AB ".* 
13 "m" rer 
IB "3" a8 "8" 
17 8 Lur-unter 49 "1" 
13 3 RWS-cH Se 2» 
194 "3" Home 31.943” 
En ig Dei zer. 
zı "Mm" De 
B2 "w" 54 "6" 
ea "m ee 
Ba "m" se "a" 
BE "Mm" ri; 
ie 39 "z' 
er "m Sa, RE 
BB "it Rot = 
es 8 Currrecht Bi °=" 
sQ "Bi" rn ge"; 
sı 'z2" Blau B3 "7" 


Gempuhs mi 


ASC 

ZEHN 
ga et 
BE Na" 
E68 9b 
Er "c 
g8 "da" 
69 "e" 
vo rg" 
FL "a" 
BE m" 
ra "it 
var" 
Be 
rE& [3 1 " 
Fr "m" 
rs "n" 
ra to" 
sap" 
a1 ra" 
Sem 
Ba "5" 
ga "rt" 
gu ur 
Ele 
gr "u" 
BB" 
za ny 
Ba "2" 
ERS 
SEREN 
s2 "j" 
Ja 
sa ter 
se "or 
gr "a" 
sa "Br 
ss n# 
ına "u" 
at "E" 
im ®F® 
122 v6" 
iga "HM" 
105 "1" 
tag .n" 
ar "E" 
as "L 
108 "MM" 
ia tn" 
13 "Oo" 
ec 
113 "ge 
119 "FR 
15 "5° 
tıs "Tr" 
Ir rue 
1 2 
119 Pia" 
iza "u" 
rer Mir 


3) 
E4 
3 
x 
x 
E 
m 
£ 


asE 
ZCHN 

t22 "2" 
vea un 
12a "y" 
1a "ge 
126 "ge" 
1e7 HS 
122 m 
1E8 Par 
ıs0 *q" 
121 7 
122 "gt 
132 "8 
cu u 
135 "9" 
136 "a 
er) 
120 "a" 
23 > 
1ge me 
141 73 
a2 "Be 
133 "m 
194 "ge 
as "m" 
Ing rm" 
147 "8" 
1a "ng" 
1945 "ag 
ta "ge 
51 "a 
152 "gg" 
152 "gg* 
154 "ng" 
1m Na" 
ı5@ rg" 
157 "we 
none 
sa "m" 
[5-7 Bu 
ver ng" 
IEE "m" 
183 9 
184" _" 
ses oe 
ig6 "ge 
or 9 op 
DER "a" 
189 "gr" 
ira» gr 
WeBe ng" 
IrE "m 
173 #0 
174 84% 
base u 
178 "r" 
177 ven 
178 "7" 
iza eg 


BEHERKUNG 


Lr-ange 
Load+tRun 


Fr Taste-1 
Fn-Taster? 


Fn-Taste-6 
Fr -Taste-3 
Sh#+trReturnr 
Gr-Grafic 


Schwarz 
Curchoch 
RWS-ofrt 
Clr Home 
Insert 
Eraun 
hell Rot 
Grau-l 

Gr aur-2 
hell Grn 
hell Rlzu 
Grsau-23 
“iolett 
Cur-links 
Gelb 

Cyan 
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ASC = ASC 
ZEHN 2 ZCHN BEMERKUNG 
sa ri a 
ss gr Do zıa "te 
ıs2 "tr z2a "E" 
I za "il" 
194 see "gr 
185 I" 223 "8" 
156 "m" ze ” Sh+töpace 
187 "2" zes "q' 
ig tm z2S u 
1233 "4" ErT AS TEN 
1389 na 223 en 
191 "a" zes "1 
132 HH eIa "3" 
133 *n“ Een 
194 »B" Bee 
135 °C" 233" 
136 "D" ee 
137 "E" e35 "HH" 
138 "F" ee 
1393 zn gar EN 
ze9 .H" Pag Hg 
zer "1" Farm 
zez "j® A, 
203 'K" Ze 
2u4 ®L" EN 
2as "Mm" ea 1 
zes "N" sur DE 
za7 ag 2a5 "1" 
eos "pP" Eur 
zog "a" EI), 
zı9 ug 245 arm 
ei t SH 249 Ya 
212 ep F50 Any y 
213 "ur BSı "a! 
eig az gOZ Mm 
is rm esa "4 
ais "x" Se 
Dir "ya gas "a" 


Ein Blick in die Tabelle 1 zeigt, daß ein 
Steuerzeichen genau die Inverseform des 
rechtstehenden Zeichens hat. Diese Ta- 
belle ist so konzipiert. Genaue Betrach- 
tung läßt erkennen, daß die Steuerzeichen 
den ASCII-Wert haben, der genau um 64 
kleiner als die ASCil-Werte ihrer rechtste- 
henden Zeichen sind. Folgenderweise 
kann man es nachprüfen: 


As="Ihr Zeichen” 
PRINTCHRSCASCLAS”)-64) . 


Somit können sie alle Steuerzeichen nach 
der Tabelie darstellen. Man kann es so er- 
klären, daß Hexa-Ausdruck von 64 (dezi- 
mal) 40 ist {und binäre Form 0100 0000). 
Durch Löschen des 6. Bits wandeln Sie ein 
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normales Zeichen in Steuerzeichen um, 
sofern der ASCII-Wert in seinem Bereich 
liegt (0 bis 31 und 128 bis 159). 

Beim Abtippen eines Programms aus ei- 
ner Zeitschrift oder eines Standard Bu- 
ches, hat wohl jeder die Erfahrung ge- 
macht, daß es über die Tastatur nicht so 
leicht ist, weil es selten ein Programm gibt, 


daß ohne Steuerzeichen geschrieben |’ 


wird. 


Besonders häufig gebraucht werden die 
CRSR- & CLR-Zeichen, um die Bild- 
schirmausgabe zu positionieren. Farbzei- 
chen sind auch nicht selten. Diese Zeichen 


| habe ich in der Tabelle mit Bemerkungen 


versehen. 


Viele der Steuerzeichen sind aber ohne 
Bemerkung, da sie zur Steuerung von Pe- 
ripherigeräten (z.B. Drucker) festgelegt 
sind. Sie sind wiederum von Gerät zu Ge- 
rät unterschiedlich, so daß keine allge- 
meine Bemerkung möglich ist. Eins ist 
aber klar, auch wenn im Handbuch 
PRINTCHR$( ) vorgeschlagen wird, kann 
PRINT”#" geschrieben werden, wobei # 
das entsprechende Steuerzeichen bedeu- 
tet. 


Ein Beispiel: 


Zur Breitschrift im: VC-1526 muß man 
CHR$(1} vor dem abzudruckenden String 
angeben. Ich benutze Inverse von "a” als 
erstes Zeichen im String. Dieses Zeichen 
wird nicht abgedruckt, aber der Rest die- 
ses Strings wird in Breitschrift geschrie- 
ben. Der Drucker befolgt den im Steuer- 
zeichen beinhalteten Befehl. 
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_ serie 
Druckerinterface für 
C-64/6-128 jetzt 
-mit_8 KByte 
Pufferspeicher 





Das neue Druckerinterface Typ 92008/G - 


stellt eine deutliche Weiterentwicklung 
des bewährten Typs 92000/G dar. Dieses 
Interface bietet dem Anwender einen 
8KByte fassenden Pufferspeicher, 1:1 Gra- 
fikaufiösung in Verbindung mit FX80- 
kompatiblen Druckern. Das Interface ist 
perfekt geeignet, alle gängigen Drucker 
{mit Centronic-Schnittstelle) 100% kom- 
patibel an den G-64/6-128 anzuschlie- 
Ben. 


Es istin der Lage, den gleichen Zeichen- 
satz wie der Originaldrucker auszudruk- 
ken und reagiert auf alle Befehle gleich. 
Deutsche Umlaute können ohne Probleme 
gedruckt werden. Das Gerät ist zu allen 
gängigen Programmen vollständig kom- 
patibel. 


Für die Anwender des Interfaces Typ 
920006 gibt es ein besonderes Bonbon. 
Diese haben nämlich die Möglichkeit, bei 
einer einmaligen Zahlung von 114,-— DM 
(zzal. Versandkosten) und Einsendung 
des „alten“ Interfaces auf das Neue umzu- 


steigen. Bei Erstkäufern beträgt der ei- 


gentliche Kaufprei$ 278,-- DM. 


Gesehen bei: Wiesemann Mikrocomputertech- 
nik, Wuppertal 
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DEX Decrement Index X bei One {Bekrementiere Indexregister X um 1) 
Dieser Befehl entspricht dem DEC Befehl, jedoch wird hier keine Speicherstelle sondern 
das X-Register um 1 dekrementiert. 76543210 
HEX Adressierung “Bytes Syntax NV BDIZC 
CA Impliziert 1 DEX X X 
Beispiel: LDX #20 ;lade X-Register mit 20 LDX #20 ‚lade X-Register mit 20 

DEX ;dekrementiere X um 1 DEX ;dekrementiere X um 1 

‚Ergebnis = 19 °  DEX ;dekrementiere X um 1 
‚Ergebnis = 18 

DEY Decrement Index Y hy One {Dekrementiere Indexregister Y um 1) 
Das Indexregister Y kennt ebenfalls den Dekrementier-Befehl 76543210 
HEX Adressierung Bytes Syntax NV BDIZE 
88 Impiiziert | 1 .  DEY X x 


Beispiel: LDY #20 ;lade Y-Regisier mit 20 LDY #20 ade Y-Register mit 30 


DEY ;dekrementiere um 1 DEY ;dekrementiere 
‚ergebnis = 19 DEY ‚dekrementiere 


‚Ergebnis = 18 





EOR „Exelusiv-Or“ Memory with Accumulator {Exklusiv ODERiere Akkumulater) 


Der Befehl „EOA“ verknüpft den Inhalt des Akkumulators mit dem Inhalt der adressier- 76543210 

ten Speicherstelle. Das Ergebnis der Verknüpfung wird im Akkumulator abgelegt. Auf NV BDIZC 

diese Art lassen sich bestimmie Bit’s umkehren. Fra 5 

HEX Adressierung Bytes Syntax ee 

41 Indirekt, vor-indiziert mit X 2 EOR (addı,X) 

45 Null-Seite (direkt) 2 EOR addr Beispiel: EDA #%11001111 

49 Unmittelbar 2 EOR #data EOR #%00110000 

4D Absolut (direkt) 3 EOR addr ;Ergebnis = 11111111 
51 indirekt, nach indiziert mit Y 2 EOR (addr),Y I 

55 Null-Seite indiziert mit X 2 EOR addr,X . LDA #9411111111 

59 Absolut indiziert mit Y 3 EOR addrY EOR }%00110000 

3D Absolut indiziert mit X 3 EOR addı,X h ;Ergebnis = 11001111 


in den Beispielen ist deutlich der „Umkehrungs-Effekt“ der Bit's 4 und 5 zu erkennen. Durch den ersten EOR-Befehl werden die Bit's 
auf 1 und durch den zweiten EOR-Befehl. wieder auf 0, gesetzt. 
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ING Increment Memory hy Üne 


‚kurs 


(Inkrementiere Speicher um 1) 


Dieser Befehl inkrementiert, das bedeutet, er erniedrigt die adressierte Speicherstelle 
um den Wert 1. Außer dem Status-Register werden keine weiteren Register beeinflußt. 


HEX Adressierung 


E6 Null-Seite (direkt) 

EE Absolut (direkt) 

F6 Null-Seite indiziert mit x 
FE Absolut indiziert mit x 


Beispiele: LDA #10 ‚lade Akku mit 10 
STA memory ;lege Zahl in Speicher ab 
INC memory ;inkrementiere 
LDA memory ;lade Ergebnis in Akku 
‚Ergebnis = 11 


Syntax 


ING addr 76543210 
ING addr 


INC addrx NV BDIZG 
ING addrx X X 


LDA #10 

STA memory 

ING memory ;inkrementiere 

ING memory ;inkrementiere 

LDA memory ;lade Ergebnis in Akku 
‚Ergebnis = 12 


Da der INC keine Register (Ausnahme Status) beeinflußt, wird er oft in Schleifen als Zähler eingeseizi. 


Ein Beispiel für eine Programmschleife: 


STARTLDA #10  ;lade Akku mit 10 
STA memory ;lege in Speicher 
LOOP INC memory ;erhöhe um 1 


In dieser Schleife zählt der Prozessor von dem Zahlenwert 10 bis zur Zahl 0. Die Zahl 0 
entsteht, wenn der Wert 255 um 1 inkrementiert wird. Solch eine Schleife kann als War- 
teschleife (vergleichbar FOR-NEXT in Basic) eingesetzt werden. Jedoch sollten Sie im- 
mer bedenken, daß Sie in Maschinensprache programmieren und die Schleife deshaib 
entsprechend schnell abgearbeitet wird. Das Beispiel wird in wenigen Milli-Sekunden 


BNE LOIOP 





ist Speicher <> 0 ausgeführt. 


Da wir nun ein Stadium erreicht haben, in dem die Theorie durch Praxis ergänzt werden sollte, wollen wir an dieser 
Stelle unsere alphabetische Auflistung der Befehle unterbrechen und auf einen Assembler eingeben. 


Bedienung und Syntax eines Assemblers 


Die Grundstruktur eines Assemblers ha- 
ben wir schon in einem der ersten Teile er- 
klärt. Um das Einarbeiten zu erleichtern, 
beschäftigen wir uns nur mit'einem As- 
sembler: 

PROFI-ASS von Data Becker 


Wir haben uns für diesen Assembler ent- 





schieden, da er sehr weit verbreitet, sehr 
leicht zu bedienen und auch sehr günstig 
zu erwerben ist. Besitzer eines anderen 
Assemblers (z. B. MAC) sollten jedoch 
nicht verzagen, denn PROFI-ASS-Pro- 
gramme lassen sich sehr leichtaufandere 
Assembler übertragen. Zu diesern Zweck 
sollte man sich näher mit der Dokumenta- 


tion des Assemblers befassen. 


PROFI-ASS gibt es inzwischen in mehre- 
ren Versionen. Wir verwenden die Version 
1.1. Unsere Beispiel-Programme sind je- 
doch auch auf neueren Versionen funk- 
tionsfähig, da diese nur um einige Funk- 
tionen erweitert wurden. 


Kommandos und Hinweise zum Profi-Assembler 64: 


Profi-Ass 64 ist ein komfortabler 2-Pass 
6510- bzw. 6502-Assembler. Er ist'voll- 
kommen in Maschinensprache geschrie- 
ben und belegt 4 KByte Speicherplatz ab 
Adresse $9000 (36864). 

Der wichtige Speicherbereich von $c000 
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bis $cfff bleibt unbelegt und wird später 
als Programmspeicher für unsere ersten 
Assemblerprogramme verwendet. 


Profi-Ass 64 beinhaltet keinen Texteditor. 
Assembler-Quellprogramme werden ein- 
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- fach wie ein Basic-Programm mit Zeilen- 


nummern eingegeben. Dies hat den Vor- . 


teil, daß Sie sich nicht an die Syntax eines 
fremden Editors gewöhnen müssen und 
Ihre Konzentration auf das eigentliche Pro- 
grammieren richten können. 


4 
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SYS 36864 
%- 

„Byte 
‚WORD 


‚ASt 


‚END 
OPT 


Die verschiedenen Adressierungsarten besitzen folgende Syntax: 


#ausdruck unmittelbare Adressierung 
ausdruck absolute oder relative Adressierung 
ausdruck,x absolut,x . indiziert mit x 

ausdruck,y absolut,y indiziert mit y 

(ausdruck,x} indiziert indirekte Adressierung 
(ausdruck)},y indirekt indizierte Adressierung 
(ausdruck} indirekte Adressierung 


Erlaubte Operatoren: 


+ addiert Werte ? logisches XOR von zwei Werten 

-  subtrahiert Werte > verschiebt linkes Argument um soviele Bits nach rechts, 
“= multipliziert Werte wie das rechte Argument angibt 

! logisches OR von zwei Werten < verschiebt linkes Argument um soviele Bits nach links, 
& 


logisches AND von zwei Werten wie das rechte Argument angibt. 


Wichtige Pseudo-Opcodes: 
Start des Assemblers. Dieser Befeni muß immer am Anfang eines Assemblerlistings stehen. 
Programmzeiger setzen. Beispiel: &=$C000 setzt den Objektcode-Anfang auf $C000 
Dieser Befehl wird benutzt, um ein oder mehrere Bytes in den Assembler-Quelltext einzufügen. Beispiel: ‚Byte $2C 


Der WORD Pseudocode wird benutzt, um Zwei-Byte-Adressen im StandardformatLOW, u in den Objektcode einzu- . 
fügen. 


Dient zum Einfügen von Text in das Assemblerprogramm. 
Beispiel: .ASC „Test“ 


Das Kommando gibt das Ende des Assembler-Listings an und übergibt die Kontrolle an Basic. 


Dieser Pseudoop steht für Option und gibt!hnen die Entscheidung über das Assemblerlisting und den Objektcode. Die | 
Syntax ist Bann: 


‚OPT option, option, option... 


p 
Ps 
0 

m 


Einige wichtige Optionen: 
Diese Option gibt an, daß das formatierte Assemblerlisting auf dem Schirm ausgegeben wird. 
Mit Hilfe dieser Option kann ein formatiertes Assembler-Listing auf Drucker ausgegeben werden. 
Object bedeutet Objektcode-Ausgabe 


Der Objektcode wird ab der definierten Speicheradresse (=... .) abgelegt und kann nach der Assemblierung aufgeru- 
fen werden. 


In dieser Beschreibung wurden nur die wichtigsten Kommandos und Eigenschaften besprochen. Ber Profi-Assembler 64 kenntna- | 
türlich eine Vielzahl weiterer Befehle, die natürlich in der Originai-Dokumentation des Assemblers genau erklärt werden. 


Literatur: 


64 Intern, Angershausen, Becker, Englisch, Gerits, Data-Becker Buch 


6502 Micrecompuler-Programmierung, Peter Heuer, Hofacker Verlag 6502/6502, Christian Persson, Heinz Heise Verlag 
6502 Programmierung in Assembler, Lance A. Levenihal Profi-Assembler-Dokumentation, Data Becker 
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Auch auf der System ’85 in Bayerns Metropole war ein Redak- 
tionsteam des Tronic-Verlags live dabei und herichtetin kurzen 
Zügen von den wesentlichsten Ereignissen des gesamten Mes- 
segeschehens. 


Renomierte Homecomputer-Hersteller waren natürlich mit ihren Produkten vertreten. 


Die Systems hatte in diesem Jahr eine Zu- 
wachsrate von 25% zu verzeichnen. Der 
Ausstellerandrang war derartig groß, daß 

“nach Auskunft der Messeleitung zahlrei- 
chen Firmen keine Ausstellungsfläche 
mehr zu Verfügung gestellt werden konn- 
te, 


Diesmal stellten 1.203 Unternehmen aus 
19 Staaten auf einer Ausstellungsfläche 
von rund 100.000 m? ihre Produkte vor. 
Diese Messe wandte sich schwerpunkt- 
mäßig an professionelle Datenverarbei- 
tungs-Interessenten. So war natürlich 
auch das Angebot an Hard- und Software 
für diesen Bereich ziemlich groß. Die zahl- 
reichen Neuvorstellungen können an die- 
ser Stelle nicht naher bekannt gegeben 
werden, da Sie den Rahmen unseres Hef- 
tes sprengen würden und ausschließlich 
den Profi-Bereich betreffen. 
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Doch auch der Bereich Mikrocomputer 
fand Berücksichtigung: In den Ausstel- 
lungshallen 21 und 22 veranstaltete man 
den „Mikrocomputer-Saıon“. Dort präsen- 
tierten 120 Aussteller, darunter die ge- 
samten Marktfüh- 

rer, ihr Angebot an 

Mierocomputer-. 

Systemen, Hard- : 

ware und Software 

sowie Fachpubli- 

kationen. Die Ini- 

tiative der Messe- : 

leitung wandte : 

sich vor allem an 
die Datenverarbei- 
tungs-Einsteiger, 
um ihnen Orientie- 
rungshilfen für die 
Anwendung von 
Microcomputersy- 
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stemen in Beruf, Ausbildung und daheim 
zu geben. 


Ein Schwerpunkt innerhalb des Mikro- 
computerbereichs bildete das Thema 
„Der Computer in der Schule“. Gerade das 
Bundesland Bayern versucht in letzter 
Zeit, den Computer verstärktim Unterricht 
zu berücksichtigen und dies sowohl in der 
Haupt- als auch in der Realschule und auf 
dem Gymnasium. 


Die Systems '85 muß als Messe für den 
professionellen CGomputerbereich angese- 
hen werden. Diese Tatsache ist allein 
schon aus der Art der Zusammenseizung 
des Messepublikums erklärbar. Denn der 
junge Messebesucher, zwischen 14 und 
25 war in München kaum anzutreffen. 


2 


Auch Commodore präsentierte sich mit einer größeren Ausstellungslläche. 
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Es gibt ein Problem, das allen Hackern bekannt 
ist: Man sieht irgendwo ein superlolles Pro- 
gramm, tippt es in mehrtägiger mühevolier Ar- 
beit ein, drückt auf RUN und nichts funktioniert. 
Was bleibt, ist die Fehlersuche; bei ein paar 
hundert Programnizeilen ist das aher leichter 
gesagt als getan. Da bleiht einem nichts anderes 


übrig, als Zeile für Zeile auf Tippfehler zu über- 
prüfen. 

Um unseren Lesern diese Arbeit zu ersparen, 
hat unsere Programmierabteilung einen Check- 
summer entwickelt. Dieser wird mii dem Befehl 
MERGE an das zu prüfende Programm ange- 
hängt und ermittelt jeweils für zwei Zeilen eine 


Prüfsumme. Durch Vergleichen dieser Zeilen- 
summen mit den Werten, die wir zu jedem Pro- 
gramm abdrucken, läßt sich auf recht schnelle 
und einfache Art die fehlerhafte Zeile finden. 
Wir glauben, daß dieser Service alten Lesern ei- 
nen wesentlichen Vorteil in die „Hackerstuben“ 
bringt, 


CHECKSUMMER 1.0 CPC 


CHECKSUMMER 1.0 CPC, so haben wir 
unser Prüfprogramm genannt, ist für den 
CPC 464/664 entwickelt worden. Eine 
(64/016 und VC20 Version ist in Planung 
und wird in einem der nächsten Hefte vor- 
gestellt. 

Wie funktioniert unser Ghecksummer? 
Tippen Sie zunächst das Programm in Ih- 
ren Computer ein. Bei der Eingabe ist zu 
beachten, daß auch alle Zwischenräume 
(Leerzeichen) mit dem Listing überein- 
stimmen. Die REM-Zeilen müssen eben- 
falls mitübernommen werden. 


Sichern Sie das Programm auf KASSETTE oder 
Diskette bevor Sie es starten! 


Nachdem Sie es gespeichert haben, akti- 


vieren Sie das Programm mit „RUN 
65200“. Es erscheint die Meldung: 


: CHECKSUMMER AKTIV FUNKTIONSTA- 
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STE. Dies bedeutet, wenn $ie die Taste 0 
des Zehnerblocks betätigen, wird der 
Checksummer aufgerufen. Wird diese Ta- 
ste betätigt, ohne daß sich ein zu prüfen- 
des zweites Programm im Speicher befin- 
det, testet sich der Checksummer selbst. 
Sollte am Schluß dieses Selbsttestes ein 
Signal ertönen, befindet sich noch ein 
Tippfehler im Programm. Sie sollten in 


65200 '*** Tronic CPC Checksummer ##%* 
"x#%* Autor Frark Brail 1785 #+ 


85210 


65220 . VERSION 1.0 


65230 KEY 128,"45530 REM TRONIE"+CHRE (13 


I+"run 55250"+CHR$ (15) 


85240 FRINT=PRINT"CHECKSUMMER AKTIV FUN 


KTIONSTASTE O":PRINT:END 


diesem Fall die auf dem Schirm ausgege- 
benen Checksummen mit den hier abge- 
druckten Summen vergleichen und so 
den Fehler lokalisieren. Wenn das Pro- 
gramm überhaupt nicht richtig arbeiten 
will, haben Sie einen so gravierenden 
Tippfehler gemacht, daß es nicht mehr in 
der Lage ist, sich selbst zu überprüfen. In 
diesem Falle müssen Sie wohl auf die ge- 
wohnte Art die Fehler selbst suchen. 
Haben Sie alle Fehler beseitigt, daß so- 
woh! die Zeilen- als auch die Gesamtsum- 
me mit den Angaben hier im Heftüberein- 
stimmt, entfernen Sie die Zeilen 65500 bis 
65530 {mit DELETE 65500-) um den 
Selbsttest auszuschalten. 

Speichern Sie das Programm jetzt mit 
dem Befehl SAVE “CHECKVI",A auf Kas- 
sette oder Diskette ab. Nur so können Sie 
es später mit Merge an Ihre Programme 
anhängen. 


Wie benutzt man den Checksummer? 

Wenn Sie ein Programm mit CHECK über- 
prüfen wollen, laden Sie zunächst das zu 
prüfende Programm (wenn Sie's nicht oh- 
nehin schon im Speicher haben), dann 
geben Sie den Befehl MERGE "CHECKVI“ 
um das Prüfprogramm anzuhängen. 


Wichtig ist, daß das zu prüfende Pro- 
gramm keine Zeilennummer besitzt, die 
größer als 65199 ist. Jetzt aktivieren Sie 
den Checksummer mit RUN 65200. Nun 
kann jederzeit die Prüfung mit der Funk- 
tionstaste 0 aufgerufen werden. Verglei- 
chen Sie jeweils die im Heft abgedruckten 
Prüfsummen mit denen, die Ihr Programm 
ausgibt. 


Falls Sie einmal einen Fehler feststellen, 
müssen Sie nicht das Programm neu la- 
den, sondern können ihn normal berichti- 
gen und dann wieder mit der Funktionsta- 
ste O das Check-Programm starten. 
Möchten Sie den Checksummer löschen, 
geben Sie einfach den Befehl DELETE 
65200-ein. 


Anmerkung zu Checksunmer 1.0 GPC: 
Groß-Kleinschreibung beachten! 
Leerzeichen innerhalb einer Zeile müssen 
dem ORIGINAL-Listing entsprechen! 
Leerzeichen am Ende einer Zeile werden 
ignoriert! 

Umgewandelte TODKEN werden automa- 
tisch in den Ursprungswert zurückgesetzt! 
REM-Zeilen müssen eingegeben werden! | 


65250 CLSSı PRINT"TronicrVerlag Checksumme 
r Version 1.0" 


65240 PRINTIıPRINTIAPRINTIPRINT"<B>ILDSCHI . 


RM <D>RUCKER" 


65270 E$=INKEY$:EF=LOWERF (EHI GIF ESe"" T 


HEN 65270 


652580 IF E$="b" THEN a=0:60T0 65310 
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65290 IF E$="d" 
65300 GDTO 65200 
65310 ADRESS=348: GCHECK=04 CLSı PRINT#A, "C 
HECK V13 PRUEFSUMMENs "= PRINT#A:PRINT#A,"Z 
EILENNR.ı SUMMEN" 

65320 LAENGEs {PEEK {ADRESS+1) #256) +PEEK (A 
DRESS) 

65330 ZNUM= (PEEK (ADRESS+3) #256) +PEEK (ADR 
ESS+2) 

65340 IF ZNUM=45200 THEN IF F=0 THEN 654 
80 ELSE PRINT #A, USING "#44" 3 ZNUM14:P 
RINTAA, "= "S4PRINT#A,"1 "3: PRINT #A, 
USING "kl" 5 ZCHECKS F=0: 070 65480 
45350 IF ZNUM=45500 THEN 65510 

65360 ZCHECK=0:FOR I=0 TO LAENGE-& 

685370 WERT=PEEK (I+ADRESS+4) 

65380 IF WERT =32 THEN 65410 

65390 ZCHECK=ZCHECK+WERT+ (IHWERT) 


THEN 4=9:G0T0 865310 
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65420 IF F=0 THEN ZCHECKI=SZCHECK: ZNUMI=Z 
NUM: ADRESS=ADRESS+LAENGE: F=1:B0OT0 45320 
65430 F=05 ZNUM2=ZNUM 
65440 PRINT #A,USING "#4" g ZNUMI1 3 :PRI 
THA,"=-"JIPRINT #A,USING "Halb": ZNUMZ IP 
RINT#A,"2"33PRINT #A,USING "HHlhlkh" ; ZCHE 
CK+ZCHECKI 

65450 SBCHECK=GCHECK+ZCHECK+ZCHECKI 

65460 IF GCHECK>65535 THEN BCHECK=SCHECK 
-55536:60T0 65460 

65470 ADRESS=ADRESS+LAENGE: GOTO 65320 
65480 PRINT#A, "------- mem 
_H 

45490 PRINT #a,"GESAMTCHECKSUMME: 
K 

65500 BCHECK=0: A=01 PRINT#ASPRINT#A, "CHEC 
KSUMMER SELBSTTEST !":BOTO 45340 

65510 IF GCHECK=62078 THEN PRINT#A,"--EN 


"SCHEC 


65400 IF ZCHECK>&SSSS THEN ZCHECK=ZCHECK DE-="zEND 
-45536160T0 65400 65520 PRINT "FEHLER IM CHECKSUMMER !":50 
65410 NEXT I UND 1,100,500 
65530 REM TRONIC 

CHECKSUMMER SELBSTTEST ! 
65200-652101 73781 45280-645290: 535564 | 65360-653701 B9147 | 65440-654501 1B832 
45220-465230: 36739 65300-655310: 24701 | 65380-653901 32907 | 65460-645470: 8412& 
65240-65250: 11826 | 65320-453301 43809 | 65400-654101 49578 | 65480-645490: 74923 
45260-452704 86096 65340-65350: 74115 | 65420-654301 28838 | --ENDE-- 





Die beiden Cherry Chaps sind zwei aufKir- 
schen versessene Kerle, die ihren Hunger 
an anderer Leute Früchte stillen. Das ge- 
fällt dem Kirschenbaumbesitzer aller- 
dings nicht sehr, weshalb er seine Wiese 
mit den süßen Früchten vermint hat. Auf 
jede Kirsche kommt eine Bombe. Die 
Hauptschwierigkeit des Spiels liegt aber 
darin, daß sich die Chaps in zwei verschie- 
denen Spielfeldern bewegen, in denen die 
Bomben und Kirschen unterschiedlich po- 
sitioniert sind. Man muß also schon beide 
Figuren im Auge behalten, um nicht ein 
Leben zu verlieren. Zu Beginn kann man 
noch bequem ernten, dain jedem Feld nur 
drei Kirschen liegen. Aber alle zwei Sc- 
reens kommen zwei Kirschen und natür- 
lich auch zwei Bomben hinzu und die Auf- 
gabe wird schwieriger. Zudem kann man 
in allen Bildern mit gerader Nummer nur 
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an den Mauern anhalten, was wiederum 
mehr Konzentration erfordert. In Level Zist 
auch das nicht mehr möglich, da die Be- 
rührung mit.den Mauern tödlich ist. Dafür 
gibt's aber für jede Screen mit gerader 
Nummer einen Bonus, der sich aus level- 
bild/2 errechnet und der am Spielende 
zum Score hinzugezählt wird. Man be- 
ginnt mit drei Leben und erhält alle 1500 
Punkte ein Freileben. Hat man genügend 
Punkte erreicht, kann man sein Glück viel- 
leicht auf einem anderen Level versuchen, 
nachdem man sich in die Highscoretabel- 
le eingetragen hat. Um die Geschwindig- 
keit einzustelen, drückt man den Joystick 
nach links oder rechts, je nachdem ob 
man schnell oder langsam spielen möchte 
{kleiner Wert - langsam; großer Wert - 
schnell). Hat man sich entschieden, so 
drückt man FIRE und das Spiel beginnt. 
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Möchte man mit der Tastatur spielen, 
müssen die entsprechenden Zeilen im Li- 
sting durch die in den REM-Zeilen 
(10000-Prgrmende) angegebenen Zeilen 
ersetzt werden. 


Guten Appetit 
und 


| Hals- und Bein- 


hruch! 


Das Listing finden Sie auf der nächsten Seite. 
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10 
20. 
30 
40 
50 
50 
70 
80 
0 
100 
110 
120 
* 
130 
140 
150 
140 
170 
180 
190 
200 
zin 
220 
230 
240 
50 
260 
270 


FRINT CHR# 1255): LOCATE 15,6:PRINT CHRS(2 


53) 


” 


Raise gar ia I 


EURER EEE ERTTTT EN 
##r TWO CHERRY CHAPS ###+ 
*#%* WRITTEN By #*%* 
*%*% STEFAN ZLATINTSIS x## 
*## ELISABETHSTR. ib ##%* 
**4 5138 HS-LIECK #+* 
*#%** FOR THE r% 
*##%# SCHNEIBER/AMSTRAD #** 
*+# CPC Ab4/b64 Kr 
EEE 
GOSUB 2160 
"#%*#%* INITIALISIERUNG HAUPTROLITINE #*# 


CLS 

runde=üö 

gg=0 

score=0:bonus=Öö 

bilded 

chap=3 

nenlive=i 
cherryi=Orcherry2=0 
PAPER O: INK 0,0: BORDER 0 
GOSUS 1170 

INK 1,12:INK 2,3: INK 3,9 
WINDOW #1,1,30,.1,25 
WINDOW #0,1,40,1,25 
GOSUB 780 

FLOT 1000,1000,1rPEN 1:L0OCATE 15,18: 


280 z„e224ı ya31fınnmnıyy=1l27 
270 GOSUB &60 


300 LOCATE 1,25: PRINT 


rt" 


"Press FIRE to sta 


310 IF JDYtO)<>1& THEN 310 ELSE LOCATE i 


„25: PRINT" 
=O:cx=0rcy=0:ımann=25J 


320 


"zyri=0syri 


"#8 HAUFTROUTINE ##* 


330 FÜR pause=1 TO 180-geschw#20:NEXT pa 


Je I = I] 


340 Kiskıyisyenki=ukeyyisyy 
350 IF bild/Z=INT (bild/2) THEN IF JOY<io) 
=0 THEN 350 


360 IF JOY(O)=1 


THEN xri=0:yri=zisıcn=Bee 


y=B: mann=253 


370 IF JDYim)=2 


THEN yri=Oryri=-idscx=Br 


ey=-24:ımann=253 


3580 IF JOY{O)=4 


cy=-8: mannı=254 


290 IF JOY(O)=8 


THEN xri=idryri=ßsıcn=24: 


cy=-81 mann=255 


400 
410 
420 
430 
40 
450 
460 
470 
ABO 
470 
Ss00 
510 


ctrleTEST into „yrey) 
etril=TEST (inxtexX „yytey) 
wantarisyaytyrisaxmnstaris yvyayytyri 
des=0 

IF »<i6 THEN »s=löıdes=i 

IF x>4438 THEN »=448: des=i 
IF »x<1& THEN ux=lö:ıdes=i 
IF xx>4458 THEN »»=448: des=1 
IF yy<47 THEN yy=47:des=2 
IF yy>207 THEN yy=-2097: des=2 
IF y<237 THEN y=237:des=2 
IF y>3853 THEN y=353: des=2 


Compure mi 


THEN xri=-16: yri=0:cx=-8 


520 
Ss30 
540 
550 
Sao 
570 


SOUND 3,240,5,13,0,0,15 
TAG 
MOVE 
MOVE 


»l,yisPRINT CHR$ (32); 
#,yıPRINT CHR&(mann}3 

MOVE x#1,yy1:PRINT CHRF{32)3 3 

MOVE xx .„.Yy:PRINT CHR& (mann)y 

580 TAGSIFF 

70 IF ctrli=3 DR grad=2 AND des=1 THEN 
MCaXXIye=yy:5DSUR 1340 


#00 IF ctri=3 OR grad=2 AND des=2 THEN 

e=siıyce=yıBÜSUB 1340 

610 IF ctrlii=Z THEN score=scors*+l0:cherr 
vy2=cherry2+1:5CUND 1,100,20,0,1,1,5:60SU 

B #60 

620 IF ctrl=2 THEN score=sscore+i0:cherry 
i=cherryl+i1:50UND 1,100,20,0,1,1,5:60SUB 
560 

&30 IF 
70 

&40 IF cherryi>=erunde*r2+1 AND ENEE ESS DLR 
unde*Z2+1 THEN bild=bild+i: nz cher 

ryZ2=0:GOSUB 780:60T0 270 i 
650 GOTO 330 

660 '#%#* ANZEIGE 
870 PEN 1 

&80 IF score+bonus>hscore THEN hscoresse 
ore+bonus: IF gg=0 THEN qgg=1:GOSUB 18409 
&70 IF scoretbonus>dhscore THEN dhscoares 
score+bonus 


score>=newlive#1500 THEN SDSUB 1& 


#%* 


700 LOCATE 32,4:PRINT USING"HRHHHHR" Ihsc 
ore 

710 LOCATE 32,5:FRINT USING" #HHHHHH" sdhs 
core 

720 LOCATE 356,F7:FRINT USINGS'#HH#";chap 
730 LOCATE 32,13:PRINT USING’ HHHHEHR" Sc 
ore 

730 LOCATE 36,17:FRINT USING"S8#"sbildr+i 
750 LOCATE 32,21:PRINT USING "HEHE bin 
nus 

760 LDCATE 35,25: PRINT grads "geschwilDE 
ATE 37,25: PRINT". " 

770 RETURN 

780 '### ANZEIGENFELD #*##* 


770 
800 
810 
820 
B30 
840 
850 
850 


FÜR ton=350 TO 150 STEF-50 
SOUND 2,t0n,20,0,2,2 

NEXT ton 

ELS #1 

PEN 2 

FOR «=2 TO 29 

LÜOCATE »,„1:PRINT CHRF (247) 
LOCATE » „i2:3PRINT CHR& (247) 


870 LOCATE x,241PRINT CHR# (247) 
BSO NEXT x 

890 FOR y=1 TD 24 

900 LOCATE 1,y:PRINT CHRS$ (247) 
910 LOCATE 30,y:FPRINT CHR$ (247) 
9720 NEXT y 

730 LOCATE 32,2:PRINT"Highscore" 
940 LOCATE 32,7:PRINT"Chaps: " 
950 LOCATE 32,11sPRINT"Scores " 
960 LOCATE 32,15: RRINT"Sereeanı " 
370 LOCATE 32,19% PRINT"Bonuse " 
980 LOCATE 32,23:PRINT"Levels" 


12/85 


12/85 


9950 IF bild/2=1NT (bild/2) AND bild>O THE 

N runde=zrunde+i:bonusi=CINT(level#bild/2 
Jıbonus=bonus+banusi 

1000 LOCATE 1,25: PRINT CHRF (22) +CHRE (12: 

signie250: 8ign2=249:f1=3: f2=1:FOR v=1l TO 
ri hr er 

1010 FOR t=1 TOD trunde#2}3+3 

1020 „=INT{RND#28) +2 

1030 y=INT(RND#10) +2 

1040 „1=INT {RND+28) +2 

1050 yi1=INT (RND#+11) +13 

1050 IF TEST (x#16-8,399-y#1ö+B)<>0 OR TE 
STtx1*16-8,399-y1l#1l6+B3<>0 DR x=i4 AND y 
= OR xx=i14 AND yy-20 THEN 1020 

1070 PEN f1:LDCATE x,„yeFRINT CHR&{signi) 
1080 LOEATE x1,yi:PRINT CHR# (sign!) 

1090 FEN f2:LOCATE x ,„yıPRINT CHR#teign2) 
11009 LOCATE »1,y1:PRINT ECHR&(sign?2) 

1110 NEXT t 

11206 sign1=252:sign2=251: Fi1=2r F2e3 

1150 NEXT v 

11430 LOCATE 25,1:PRINT EHRS$ (22) +CHR$ (0) 
1150 PEN 1 

1150 RETURN 

1170 '#%#* LEVEL WÄEHLEN ##%# 

1180 &LS 

1170 INK 1,7: INK 2,3,5:INK 3,6,3 

1200 LOCATE 1,41:ıPEN 1:PRINT"Welchen Grad 
wollen Sie wagen 7" 

12168 LOCATE 1,3:4PEN 2:PRINT"i = Wand ung 
sfashrlich (JOYSTICK LEFT)Y" 

1220 LOCATE 1,4ı1FEN JıPRINT"2 - Wand tos 
dlich LJOYSTICK RIGHT} " 

1250 IF JöYiG}=4 THEN gradet ELSE IF JOYV 
(O}=8 THEN grad=2 ELSE 1230 

1240 CLS 

1259 INK 1,9: INk 2,18 

1260 LOCGATE 1,13PEN 15PRINT"Mit welcher 
Geschwindigkeit wollen Sie spielen {0-% 
yyı 

1270 geschw=0 

1250 LOCATE 1,4: PEN 2:PRINT geschw 

1296 IF JOY{O)=2 THEN geschwrgeschw-l1s IF 
geschw{üö THEN geschw=ö 

1300 IF JDOY{O)=8 THEN geschw=gesch#+i: IF 
geschn>? THEN geschw=?7 

1310 IF JOYtO}=16 THEN level-gradtiürges 
ehws CLS: RETURN 

1320 FOR t=1 TO 100ıNEXT t£ 

1330 GOTO 1280 

134050 ’##* CHAP VERLIEREN ###+ 

1350 cehapechapei 

1350 SAUND 3,500,130,15,3,0,15 

1370 TAGı PLOT 1000, 1000, 6: MOVE xc »VErPEI 

NT. CHR# (3234 

1380 FOR veil TO 50 

1390 »p=INT (RND#1&) 

1400 yp=INT (RND#*16} 

1410 #=1INT(RND#ZI +1 

1420 PLBT xctkp,ye-yp,f 

14306 NEXT v 

1440 SYMBOL 2498,0,0,0,0,0,0,0,0 

1450 FÜR t=1 TO Bralt)=0OıNEXT t 


programme 


14&0. RESTORE 3340 

1470 ton=900 

1480 FOR sign=B TG 1 STEP- 

1470 SOUND 3,t0n1,3,15:ton=ton+40 

1500 RERD atsign) 

1510 SYMBOL 248,a11),a(2),at}},a(4),al5) 
„atb),at7),afB} 

1520 PLOT 1060,1000,3:MOVE xc,ycsPRINT GE 
HR$ 1248) 3 

1530 FOR t=1 TO 100:NEXT t 

1540 NEXT sign 

1550 PLOT 1000,1000,1:MOVE xc,„yc:sPRINT 5 
Hrstmann?!z 

1550 TAGOFF 

1570 GBOSUR 440 

1580 IF chap=0 THEN LDOCATE 10,12: PRINT CE 
HR$ (22) +CHRS& (1) "GAME —— DVER"+CHR$ (22) + 
CHR$ (O0) s LOCATE 1,25: LOCATE 32,13: PRINT U 
SING'#44##4##" score+bonus:GOSUB 1610:L0C 
ATE 1,25: PRINT"Press FIRE to continue":l 
F JOY{0)=16 THEN TAGOFF:GOSLUB 1940: G60T0 
130 ELSE 1580 

1590 xri=0:yri=sd:ıck=üıcy=0 

i&00 RETURN 

1510 ’*#* GAME-DVER SDUND ##+* 

120 c=2ıton=900 

1530 SOUND 3,t0on,10,15 

1540 ton=ton+c:cec#2 

1550 IF tan>4000 THEN RETURN 

1850 GOTO 1430 

1570 '**# FREILEBEN ### 

1680 newlive=snewlive+l 

1&#0 chap=chap+i 

1700 LOCATE 10,12:PEN i:FRINT EHR$ (22) +0 
HR&ti)+"NEW CHA P"+CHRS$ (22) +CHR$ (0) 
1710 PEN 2 

1720 piep=-i1O 

1730 FOR t=1 TOD 50 

1740 piep=-piep 

1750 SOUND 1,600+piep#INT (RND#5? „10,15 
17&0 SDUND 2,250-piep#INT (RND*5) ,10,15 
1779 NEXT t 

1780 LOGATE 10,12 

17970 FOR #=1 TO 14 

1800 PRINT CHR# 124793 

1810 NEXT t 

18920 GOSUB &40 

1830 RETURN 

1946 '#%** HIEHSCORE BEBROCHEN ##%* 

1850 LOCATE 12,12:ıPRINT CHRE& (22) +CHRS$ 1) 
+" HIGHSCORE"+CHRE (22) +CHRS$ (0) 

1840 FOR t=i5 TO ıi STEPF -0,.25 

1870 ENY 4,:,-1,2 

1880 SGUND 129, INT(RND#640)+100,0,1,4,6 
1850 FOR v=1 TO 100:NEXT v 

1900 NEXT t 

110 FOR r=12 TO 21:LOCATE r„iZePEN Z:PR 
INT CHRE (247) :NEXT r 

1720 PEN I 

19359 RETURN 

1940 '##* HISHSCEORE TABLE #*%# 

1950 ELS 

19760 INK 1,23 


Computbe mik 


41 


programme 


1970 F=3ıw=el 

1980 scoresscore+bonus 

1790 FOR k=1 TO 100r a$=INKEYFINEXT Kk 
2000 FOR k=1 TO 15 

2010 IF scoressc(k) THEN NEXT kK:GOTD 209 
[e} 

2020 IF k<>15 THEN FOR z=15 TO k+i STEF- 
1lınamet {tz )enames {iz-l)ısci(z)=sc(z-i}:NEXT 


z 
2030 CLS 

2040 PRINT"Please enter your name for th 
e high score table." 


2050 LOCATE 1,3: INPUT names(k) 

#0&0 IF LENiname$tk)}>30 THEN namesik’i=L 

EFiFinams# (k) ,30) 

2070 Sc iki=score 

2080 IF score>hscore THEN hecore=score 

2070 ELS 

2100 INK 1,1:INK 2,2,11rINK 3,11,2 

z110 LOCATE 5,2ı1FRINT'DIE AUSERM 
AEHLTEM" 

2120 FOR y=1 TO 15:PEN FeLOEATE 2,y+5ıFR 
INT name# (y}:ıLOCATE 33, y+5ırFRINT UVEING"4 

BEHRENS (yiefefnenenn 

2130 NEXT y 

2140 LDCATE 10,24:FEN 1:PRINT"Prass Fire 
to continue" 

2156 IF JOYtO)=1& THEN RETURN ELSE 2150 
2160 '### VORBEREITUNG ##r* 

2170 ENV 1,20,1,1 

2180 ENV 2,20,-1,1,10,1,1 

2170 ENV 3,10,-1,5,4,1,2,6,71,3 

2200 ENT 1,20,10,1 

2210 ENT 2,10,1,1,10,-1,1 

2220 ENT 3,10,10,1,10,-12,1 

2230 ENT #,1,10,2,1,0,2,1,-10,2,1,0,2,1, 
10,2 

2240 ENT -5,1,5,1 

2250 ENT 6,1,1,35,1,0,3,1,-1,3 

22560 RESTORE 3320 

=2270 DIM sc (15) ,name$ (15) 

RB0O FOR t=i TO 15 

2260 REABD namet(t) „sc (t} 

23500 NEXT + 

2310 hscore=4500 

23209 dhscore=ü 

23350 '##%# TITELBILD ##*%* 

2340 y=300 

2350 ri=2 

23£0 MODE SO: INK O,l11:INK 1,97: INK 2,242 IN 

K 3,18:INK 4,6: INK 5,3: INK 5,0: INK 7,286: 
INK 8,13: INK 9,12: INK 10,7:INK 11,16: INK 
12,6, 3: INK 13,15: INK 14,21: INK 15,19: PA 

PER Gs BÖRDER 1 

2370 CLS 

2380 FOR x=0 TO 639 STEP 4 


2390 y=ytri:IF y>320 OR y<280 THEN ri=-r" 


1 

2400 PLOT x,O,1:DRAW x,y 

2410 NEXT x 

2420 y=270 

2430 FOR x=0 TD 639 STEP 4 

2440 y=y+trisIF y>2BO OR y<260 THEN rie-r 


Compute mip 


ı 

2450 PLOT x,0,3:DRAW x,y 

2460 NEXT x 

2470 '*#%* Blume %#%* 

2480 SYMBOL 245,56,56,198,198,178,56,56, 
o 


2490 SYMBOL 244,0,0,40,48,16,0,0,0 

2500 PRINT CHR$ {233 +CHRE (1) 

2510 TAG 

z5Z0 FÜR biume=1 TO 20 

2550 x=INT (RND#525) 5 y=INT {RND+ZO0) +48: co 
1=INT {RND#53 +7 

2540 coli=INT (RND+5?7+7: IF coali=col THEN 
2540 

2550 PLOT 1000,1000,colıMDVE x ,y:ıPRINT C 
HRF(Z245) 4: PLOT 1000,1000,caollıMOVE x,„yeP 
RINT CHRF (24435 

2550 NEXT blume 

2570 TABGOFF 

2560 PRINT CHR& (23) +CHRS& (03 

2590 ORIGIN 540,350 


2&00 FOR j=0 TO 30 STEP Zıx= jr y=5oR (30%2 
-j"23 /1.1:MOVE %,-ysDRAW x,y,Z2ıMOVE -x,- 
YEDRAW -x „yıNEXT 

2610 col=4 

2620 ORIGIN 400,150 

2630 FOR j=0 TD 100 BTEP Z2ıx=jıy=SOR (100 
»2-3723/1.13MOVE x,-yıDRAW x „y,colıMOVE 
-,7yıDRAW x „yıNEXT 

2640 IF col=4 THEN ORIGIN 250,130secolaSı 
GOTO 2430 

2650 PRINT CHRE& (22) +CHR# (1) 


2640 LOCATE 7,14ı1PEN &1PRINT"Two" 


2570 LOCATE 64, 174 PRINT"Cherry" 

2680 c$R'Chaps"ıym12 

26890 FOR x=1 105 

2700 yay+i 

27106 LOCATE 10+x ,yıFRINT Rene 1) 
2720 NEXT x 

2730 FOR y=1 TO 100 

2740 zser+RND#2 : 
2750 PLOT x,y+BO:DRAWR -10,0,1:PLOTR 0,0 
„&:PLUTR 10,0,& 

2780 NEXT y 

2770 FOR t=1 TO 109 

2780 PLOT x+t,y+B0,1:DRAW 130+t,90,1 
2790 NEXT t 

2800 PLOT x+t,y+50,5:DRAW 130+t,70 

z810 PLOT x ,y+Bcı DRAW 130,70 

2820 RESTORE 3310 

2830 FOR t=1 TO 4 

2840 READ word 

2650 FOR x=1 TO LEN {word#) 

2850 LECATE x ,24:PEN 12:PRINT MIDE (words 
‚»#,19:50UND 1,300,9,5,0,6:50UND 2,350,7, 
5.,.0,5 

2870 FOR g=e1 TO 106:NEXT g 

2880 NEXT % 

2895 FOR z=1 TO 20004NEXT z 

2700 FOR g=i TO 17 

2910 LOCATE q,24iPEN 3: PRINT CHR£ (143): F 
OR h=1 TO S0:NEXT h,q 


12/85 


12/85 


2920 NEXT t 

2530 ' ### ANLEITUNG #** 

2740 MDDE 1 

2950 BORDER 0 

29&0 FOR t=0 TO 35INK t,„O:NEXT t 

2770 CLE #1 

2980 LOCATE 13,t:PEN 1:PRINT"TWO CHERRY 

CHAPS" i E 

2990 PEN SsLOCATE 1,3 

3000 PRINT"Sie haben die Aufgabe den bei 

den Cherry Chaps beim Leerfressen der Ki 

rschfelder zu helfen. Allerdings hat der 
Kirsch- plantagenbesitzer seine Felde 

r vermint. Achten Sie also auf die herum 

liegenden Bomben - sonst haben Sie scho 

n ein Leben"; 

3010 PRINT"weniger. Alle 1500 Punkte gib 

ts aber ei-nen neuen Chap. Vorsicht gebo 

ten ist auch bei allen Sereens mit ge 

rader Num- mer; hier koennen die Chaps n 

aemlich nuran der Mauer anhalten — sonst 
laufen siedurch. Bei Level 2 ist auch d 

as nicht” 

3020 PRINT"mehr moeglich, da die Beruehr 

ung mit den Waenden toedlich ist." 

3030 PEN i:PRINTıPRINT"Viel Spass und Gi 

uack." 

3040 PEN 2:LOCATE 5,21: PRINT"Gespielt wi 

rd mit dem Joystick" 

3050 PEN isLOCATE 12,25: PRINT"Press FIRE 
to play" 

5050 INK 1,3: INK 2,9: INK 3,12 

3070 FOR a=-250 TO 250 STEP 10 

3080 ENT 4,1,10,2,1,0,2,1,-10,2,1,0,2,1, 
10,2 

3090 SOUND 1,750-ABS (a) ,„,10,15,0,4 

3100 SGUND 2,250-AB5 (a) „10,15,0,4 

3110 SOUND 3,500+ (INT (RND#+1060) -50) „1,10 
3120 NEXT a 

3130 IF JOY(O)<>15 THEN 3130 

3140 '##8 UDG'S %%% 

3150 "er CHAP ##* 

3150 SYMBOL 255,120,228,228,255,207,1972, 

239,124 

3170 SYMBOL 254,30,39,39,255,243,3,103,6 


2 
3180 SYMBOL 253,125,153,153,231,153,129, 


195,126 

3170 '### CHERRY ##%# 

3200 SYMBOL 252,0,0,0,58,111,247,242,95 
3210 SYMBOL 251,16,24,36,32,0,0,0,0 
3220 'xe# BOMBE ##+ 

3230 EYMPBOL 250,0,0,9,80,78,70,98,60 
3240 SYMBOL 249,3,12,18,0,0,0,0,0 

3250 '### KREUZ ###+ 

3260 SYMBOL 248,24,24,126,126,24,24,60,1 
2& 

3270 ’#Hr UMRANDUNG #*# 

3250 SYMROL 247,0,254,254,254,0,239,239, 
237 

3270 RETURN 

3300 '##* DATAS ##% 


_programme_ 


3310 DATA Written by,Stefan Ziatintsis,i 
n June 1985,All rights reserved 
3320 DATA Jerry die katz' „4500, ,Aasgeier 
rasieren Doris,6000,Presst die Birne aus 
‚5500,"Wer sabbert, fliegt" „5000,Prince 
grinct „4500, Alfred E. Neumann „4000 , James 
Bonn jagt Dr. Njet,3500,Der Birnendieb 
vom Bodensee ,‚3000,Kung Fu Mann Tschu ,250 
Ö 
3330 DATA Albert Erdschwein ,Z000,Das tap 
fere Schneiderlein,1500,Der Haas im Fott 
‚1250,Peter auf dem Balken,1000,Simon le 
coquet „750,Dies ist nicht Platz 1,500 
3340 DATA 1268,60,24,24,126,125,24,24 
10000 "##* AENDERUNGEN FÜUER ECURSOR-STEUE 
RUNG ### - 
10010 "Zeiler Aenderung 


10020 * 300 » LÜCATE 1,25: PRINT "Press 
COPY to start" 
10030 ' 310 s IF inkey(Px<O then S10 EL 


SE LOCATE 1,25:PRINT" 
"syri=Oryri=ü:ck=0:cy=0: manı=253 

10040 * 350 s IF bild/2=1INTtbild/23 THE 
N IF inkeys=-"" than 350 

10050 * 350 : IF inkeyto)>-1 then xri=0 
syri=siörck#Bscy=B:mann=253 

10050 '* 370 = IF inkeyt2)>-1 THEN xri=0 
syri=s-16:ck=Bıcy=-24: manıı=253 

10070 ' 380 » IF inkeyt8)>-1 THEN xri=- 
1b: yri=0:cx=-B:cy=-Bı mann=254 

10080 ° 390 : IF inkeytil)>=-i1 THEN xri=l 
&: yri=Ö:ck=24:1cy=-B:mann=255 

10090 ' 1210 ı LOCATE 1,3:PEN 2:PRINT"I 
- Wand ungefaehrlich {CURSDR LEFTI" 
10100 " 1220 z LOCATE 1,4:PEN 3S:PRINT"2 
- Wand toedlich {JOYSTICK RIGHT3" 
10110 * 1230 : IF inkeyiß)>-1 then grad 
1 ELSE IF inkeyti)>-1 THEN grad=?2 ELSE 1 
230 

10120 * 1270 : if inkeyi@®d>-i1 THEN gesch 
w=geschw=1ls1IF geschw‘O THEN geschw=0 
10130 ° 13060 ı IF inkey(i)>=-1 THEN gesch 
w=geschw+lı IF geschw>? THEN geschw=? 
10140 ' 1310 s if inkey(9)>-1 then level 
zqrad#+10+geschw: CLS: RETURN 


10150 ' 1580 s IF chap=0 THEN LOCATE 10, 


123 PRINT CHR&$ 22) +CHRS$ (1); "GAME -—- OVER" 
+CHRE& (223 +CHR$ (O0) :LOCATE 1,25:LBCATE 32, 
i3:PRINT USING" HH" score+bonrus: GOSU 
B i&10:L0DCATE 1,25: PRINT"Press COPY to c 
antinue":IF inkey(#}>-1 then .„... 

10150 * 2140 : LDCATE 10,24:PEN I:PRINT" 
Press COFY to continue" 

10179 * 2159 » IF inkey(?)>-1 THEN RETUR 
N ELSE 21590 j ; 

10180 ' 3040.» PEN 2ILOCATE 3,21:PFRINT"G 
espielt wird mit den Cursor keys" 

10190 ° 3050 = PEN 1:LOCATE 12,25: PRINT" 
Press COPY to play" 

10200 ' 3130 » IF inkeyt#<06 THEN 3130 


Gompubs mik 
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Das Scrolling selbst wird vom Video-Pro- 


90 


CHECK Vi:PRUEFSUMMEN: &890- 7003 
710- 720: 

ZEILENNR.: SUMMEN 730- 740: 
10- 203 41563 750- 7850: 
39- 404 41092 770- 780 
so 60: 40357 799- 800: 
70- 80: 357355 B810- 829: 
90- 1005 33310 '830- 840: 
110- 120: 48927 850- 880: 
130- 140: 6475 870- 850: 
150- 160: 24747 890- 700: 
170- 1850: 10468 7109-9320: 
170- 200: 41515 930- 940: 
210- 220: 4093 750- 940: 
230- 240: 97723 970- 980: 
250- 260: 3675 990- 1009: 
270- 280: 73385 1010- 1020: 
290- 300: 35920 1030- 10403 
310- 320: 50663 1050- 10603 
330- 340: 45122 1070- 1080 
350- 3650: 30733 10690- 1100: 
370- 380: 92479 1110- 1120: 
390- 400: 85152 1130- 1140: 
410- 420:10578B3 1150- 1160: 
430- #40: 37628 1170- 1180: 
450=- 480: BO&TS 1190- 1200: 
470- 480: 885401 1210- 1220: 
470- 500: B5421 1230- 17240: 
510- 520: 45356 1250- 1240: 
530- 540: 17359 1270- 1280: 
>50- 560: 49012 1290- 13001 
s79- 550: 32855 1310- 1320: 
570- #00: Bi 1330- 13403 
&19- 820: 91343 1350- 1360: 
&30- 640: B0577 1370- 1380: 
6&50- 6640: 5587 1390- 14003 
&70- 650: 50485 1410- 1420: 


14403 


91754 1430- 8445 2170- 
54461 14350- 1460: 34827 2190- 
57535 1470= 1450: 24677 2210- 
EF51B 1490- 1500: 55507 2239- 
14629 1510- 1520: 98069 2250- 
32797272 1530- 1540: 19775 Z270r 
3895 1550- 1550: 51730 2290- 
6758 1570- 1580: 29515 2310- 
265443 1590- 1600: 498721 2330- 
15528 1810- 16820: 32430 2359- 
19505 1650—- 1540: 50115 2370- 
18017 1450- 1640: 15081 2390- 
26026 1670- 160: 41827 2410- 
23575 1690- 17004 42903 2430- 
22135 1710- 17201 7984 2450- 
62208 1730- 1740; 22544 2470- 
45457 1750- 1760: 744902 2490- 
31571 1770=- 1780: 2417 2510- 
44724 1790- 1800: #532 2530- 
75763 1810- 1920: 25530 2550- 
75830 1B8I0- 18404 25730 2570-' 
4238 1850- 1840: 45585 2590- 
17402 1870- 1890: 35404 2810- 
433 1890- 19001 18700 2630- 
15427 1910- 1920: 1497 2430” 
20674 1930- 1940: 18309 2u70- 
48243 1950- 19401 784 ZuHr0- 
46229 1970- 19803 46160 2710- 
51203 1990- 2000: 39747 2730- 
267i4 Z01l0- Zu2ür 82639 2750- 
77154 2030- 20401 50910 2770=- 
53101 2050- 2060: 15202 27970- 
17397 2070- 20801 40093 2B10- 
25161 2070- 21004 9319 2830- 
52693 2110- 21201 92127 2850- 
25590 2130- 2150 50710 2870- 
5J058 z150- 21807 298974 2870- 


2180: 
22001 
2220: 
2240: 
22801 
2280: 
2200: 
2320: 
2340: 
2350: 
23809: 
24003 
2420: 
24407 
24407 
24509 
25008 
2520: 
2540: 
25603 
2580, 
z2a00ı 
26203 
286401 
26608 
268903 
2700: 
2720: 
27401 
27603 
2780: 
28001 
29203 
2830: 
2860: 
288303 
2700: 


'B13& 


30574 


#910- 29201 13571 

169765 2930- 2940: 11832 
17117 2950- 29650: 25708 
26554 2770- 2960: 27548 
1289459 2970- 3000: &3502 
22807 3010- 3020: 119587 
27351 3030- 3040: 502453 
10895& 3050- 30680: 47523 
13112 3070- 3080: 43696 
37327 3090- 31003 32790 
11963 3110- 3120: 30379 
70176 5130- 3140: 13904 
4169 3150- 3160: 42558 
64898 3170- 3180: 55993 
17104 3190- 32001 28954 
30042 S3S210- 3220: 15383 
16297 3230- 32404 23467 
12509 3250- 3240: 245397 
27F760 3270- 3280: 45410 
39588 3290- 3300: 86167 
8031 3310- 3320; 58558 
50272 3330- 3340: 48528 
6677 1606006-10010: 77511 
84508 10020-100530: 889575 
17222 10049-100503 59260 
27458 10080-10070r 38025 
13194 10080-100990: 59520 
33116 16160-101103 97252 
214497 10120-101305 6295 
42574 10140-160150: 46977& 
53767 10150-10170: 127995 
47229 10180-101900: F7048 
19228 19200- 31837 
10689 | ——nm mu oma nn 
535759 GESAMTCHECKSUMME ı 
15534 
23622 





in 


Wissen Sie u wie Ser Bildschirm z am 1 CPC EEE wird? 
Bildschirmscrolling in Maschinensprache ist ab sofort kein Geheimnis 


Bei vielen Programmen besteht die Not- 
wendigkeit den Bildschirminhalt mit ho- 
her Geschwindigkeit nach oben oder un- 
ten zu scrollen. 

Um diesen Effekt zu erreichen können Sie 
eine Routine des Betriebssystems benut- 
zen. Die Routine beginnt bei & BCAd und 
erwartet, daß beim Einsprung das Regi- 
ster Bmitdem Wert 0 oder 1 geladen wird. 
Sie werden sich sicher fragen, welche Be- 
deutung Register B hat? Die Erklärung ist 
aber denkbar einfach. Bei dem Wert 1 
scrollt der Bildschirm nach oben und bei 
dem Wert O0 nach unten. 


zessor erledigt und die Bildschirmbewe- 
gung erfoigt deshalb mit relativ hoher Ge- 


mehr. 
ne 
zZ 
schwindigkeit. Das abgedruckte ; 
Beispiel zeigt auf recht beein- | s 
druckende Art die Möglichkeiten s 
des Scrollings. _ Bu: 
Der MC-Lader kann in eigene 
Programmroutinen eingebaut 
werden. 
Hinweis: Das Demo-Spiel 


kann nach einem Programm- 
abbruch mitMode 0:GOTO 30 
neu gestartet werden. 


Quellennachweis: Schneider Firmware Manual 


Compute mib 


30000 
30905 
30010 
30915 
30020 


MC-LADEPROGRAMM 
"Serolling nach oben 
"POKE %a52b,1 
"Scrolling nach unten 
"POKE %a526b,0 
"Aufruf mit:CALL 


_ Nein ? 


ime+1) 


MEMORY HIMEM-10 
me=HIMEM: RESTORE:CLS 
FOR i=1 TO 7ıREAD a 
POKE (mc+i) ,asNEXT i 
DATA 5,0,205,77,188,201,201,201 


CHECK VI: PRUEFSUMMEN; 





ZEILENNR.ı SUMMEN 

i- 23 347753 

m 4: 309479 

5- 8: 27172 

„er Br 770 
30000-330005: 11581 
30610-30015: 35587 
30020- » 197904 
GESAMTCHECKSUMME: 7450 


12/85 


_programme. 





I REM “mn nn nn 180 FOR i=1 TO 24 ZEILENNR.: SUMMEN 
2 REM ====DEMÜSPIEL METEOR==e= 190 INK 0,24-i 6» Zı 39557 
8 REM --------- 0... 200 INK 1,i:L0CATE a,25 I- 4: 40499 
* REM ===BY OTTFRIED=SSCHMIDT== 2i6 FRINT CHRS (238): CALL 2BD19 5-+ 8: 36977 
ES REM umnmaumm nun mn m nn nn 220 SOUND 2,2,5,7,040,i 7- B: 15858 
& REM sarr=bMA Is=aa=aee 1 98 Zee 230 LDCATE a,25: PRINT CHRS$(203) 9 iO: 5B28 
7REM un nmeme nn 240 CALL RBDISF:NEXT i:INK 1,23 20- 30: 3810 
BE: 250 INK 0,0 40- 50: 7157 
5 hsc=o 2&0 CLS:LOCATE 1,10 &0- 70: 125686 
10 ON BREAK GDEUB 4009 - 270 PRINT ec;" Punkte" 80- 96: 55101 
z9 GOSUB 350 275 FRINT"High score="hsc: IF hscisc THEN 100- 110: 55821 
Io sce=o ; hse=sc 120- 130: 45781 
“> INK 2,16:BORDER 0: INK 0,0 280 CALL &BRO3: INPUT"NER SAME 7 j/n"yas 140- 150: 17486 
50 a=10 299 IF a$="j" THEN CLS:G0T0 30 ELSE GOTD 1&0- 170: 13431 
80 b1=INT(K&ND#2O) +1:b2=INT {RND#2O) +1 490 ı180- 190: 11371 
70 PEN Z:L.0CATE bi,1:FRINT CHR$ (201): L007 | 300 MEMORY HIMEM-160 200- 210: 1450853 
ATE b2,2:FRINT CHRS#(ZO1} 310 me=HIMEM: RESTORE: MODE G:CLS 220- 230: 20135 
50 PEN I 520 FOR i=1 TD 7iREAD a 240- 250: 10017 
30 IF axX1F TFeEN IF JüYto)=eB THEN arati 330 PÜKE (mc+i1),a:NEXT i 240- 270: 12561 
100 IF a>1 THEN IF JOY(G)=4 THEN a=a-1 340 DATA 5,0,205,77,188,201,201,201 Zz75=- 280: 69601 
110 EALL me+i 350 RETURN 290- 300: 28204 
1260 IF TEST (ar32-16,8)=2 THEN GOTD 176 3&0 SYMBOL AFTER 197 310- 320: 25062 
1309 LOCATE a,25:ıFRINT CHRF# 1200) 370 SYMBCL 200,8,8,73,85,85,127.127,73 330- 3406: 42245 
140 SOUND 1,0,8,3,0,0,& 580 SYMBOL 201,24,56,125,124,248,124,120 z330- 360: Z1ll 
150 scascti „48 370» 380: 45572 
150 GOTD &0 390 60TQ 300 370- 400: 3330 
170 LOCATE 3,25:FRINT CHR& (278) 400 MEMORY 42251:MODE 100000000000 | men nenn nn 
BESAMTCHECKSUMME: 307253 





Auftrag für Gelegenheitsanzeigen in „Lompute mit... 


Name und Adresse 


An „Gompute mit ..: 
Tronic-Verlag 
Postfach 

3444 Wehretal 1 


Unterschrift 


Unter der Rubrik „Kleinanzeigen“- Ich wünsche folgenden Text zu veröffentlichen: 
veröffentlichen wir Gelegenheits- 


anzeigen- für Verkaufsangebote, 
Kauf- und Tauschgesuche, Kon- 
taktaufnahme bzw. Erfahrungs- 
austausch usw. 











Aktuell: 

Unsere Preise für „Kleinanzeigen“: 
Jede Kleinanzeige nur 10,- DM 
Jede gewerbliche 


Gelegenheitsanzeige nur 15,- DM | l |! | 
(dürfen nicht unter Chiffre erschei- 1 ALL | 


nen) EARIIGA ER DORT 1 ER: 0 ee ne a a RR ER > N 3 ER ea KEN LT Des LE EN 
Eine Veröffentlichung erfolgt nur | | | | Yl4 | kalt | 


gegen Vorkasse! ® 

















Zutreffendes ankreuzen 


Kleinanzeigen jetzt suche Ü Software . suche ©) Hardware © Tausch © Versch. 
noch pr eiswerter e biete an Ü Software biete an ‘© Hardware \ Kontakte Ö Chiffre 





| 126 | | Gompube mib sl 









Biete Hardware 





Matrix-Drucker: Seikosha 6P500 CPC DM 
300/ Elektron. Schreibmasch.: Sigma SH 
8000 MP mit Display DM 200/Elektr. 
Schreibmasch.: Olympia DM 100 

Klaus Bartram, kfm. Büro 

Haardwaldstr. 1-7, 6000 Frankfurt 71, 

Tel. 069/670 2230. 


A“ x% %* Verkaufe Schneider CPC 664 av a * 
(2 Monate alt} mit viel Software und Büchern 
für DM 1300,- wegen Systemwechsel. 
Eduard Wiedemann jun. ab 18 Uhr (07042 / 
21682} 


ht ah a a ah a a 
”* SCHNEIDER CPC 464/564 

%* Univers. Ein/Ausgabe-Interface 32 Bit 
TTl.. Zum Anschl. vielseit. Hardware a. 
CPC. z.B. A/D Wandler, Relais, Roboter, 
Schul-Eisenbahn-Discoelectr. od, 
Mä&L- Zubehör. Ausf. Bedien.-Anl. Eig- 
nes Netzteil. Programmierb. in Basic 
od. Asemml. Interupttaugl* DM 198 
EPROMPROGRAMMIERGERÄT an E/ 
Ainterface anschließb. f. 2716-27128, 
2516-2564 m. komfort. Bedienersoftw. 
28pol, Textoolsock. vorber. f. 27258. 
Maschinenspr.-Monitor. Lesen, Leer. 
Programm. Vergleich. v. Eprom’s * DM 
178 M&L-MaximinisLichter, Hauptstr. 
%* 1a, 5511 Mannebach, T. 065 81/3535 
rk Han‘ 


KEREEEEE 
hd RE Ze Ze Ze Ze ZB Zze u cup ee 7 27 


Habe einige hundert SCIENCE-FICTION 
Taschenbücher zu verkaufen. Einige billige 
Raritäten im super Zuständen. Suche noch 
viele SF-Bücher. Kaufe fast alles auf. Verkau- 
fe C 16 + Datasetie für 110 DM. VHB. 
Wolfgang Morgenthaler, Holzhauserstr. 16, 
7597 Rheinau 6, Tel.: 078537593, 





1 Jahr alt: CPC 464 grün + Quen Data Druk- 
ker + Joystick + 8 Bücher + Leercassetten + 
Hobbit - VB 1100 DM, Tel. ab 16.30 Uhr - 
02327/35298. 


kAuk%k TOPANGEBOT AKıkıaır 
Verkaufe G 16 + Datasette + 2 neue, kaum 
gebrauchte Joysticks, NP580 DMfür 190 DM, 
Tel. 07022/33245 





kökı VERKAUFE C-15 Gau 
whk mit Joyst. und Cassettenrekorder # ©: 
6%: mit drei Spielen ch 
ck 3 Monate alt und Garantie ar 
“ir nur für 250 DM Sch 
:r%* Bitte melden bei: Lorenz Witte Wir 
4% Eltvilter Str 2, 6229 Kiedrich <# 
De 20 | SCHNELL wich 


G&S Computerservice, Rudi Gutemann u, 
Dieter Schulz, Soft- u. Hardware C-64. Unser 
Angebot: Farbb. Epson 80, 801, 802 je 15,95, 
Disketten 3. 50 St. 10er Box 39,50, Abdeck- 
haube 12,25, Lüfter 37,90, Box 85 Disk. m. 
Schloß 35,50, Diskettenloch. 12,95, Eprom- 
brenner kp!. 159,00. D. Schulz, Funkenstr. 42, 
5020 Frechen, Tel.: 02234/57848, Katalog 
kostenlos. 


SCHNEIDER CPC 664 mit DISA und Farbmo- 
nitor noch 3 Monate Garantie. Neupreis 1998 
DM für 1800 DM zu verkaufen. Telefon 
06145/33450. 





VC-20 + 3K; 16K u. 32 K + Dataselte + Joy- 
stick + Spielmodul+ Maschinensch 'eibkurs 
+ 100 Spiele + 5 Bücher. 

Angebote an A. Elfers, Hohenwedeler Weg 
56, 2160 Stade. 


YC-20: 64kB Erweiterungsmodul, alle Erwei- 
terungen G3-8-16-32-64) frei einstellbar und 
15 Listings für „mit Erweiterung“ für 150 DM 
zu verkaufen. Tel.: 05921715725. 





kk%k SENSATIONELL: Zusatzlaufwerke für 
Schneider CPC-464 und CPC-664 ak 
im Gehäuse und mit allen Kabeln 5," / 
40 Track / einseitig 549,- DM #3” 7/40 Track 
einseitig 399,- DM 
KDB-COMPUTER-VERSAND, Kornstraße 28, 
5800 Hagen 7, Tel. 02331/400601 


Suche Hardware 





??? Help ? ? ? Hilfe ? ? ? Help ? ?? 
Suche dringend gebrauchten C-64 mit Flop- 
py-Laufwerk. 

Angebote an H. Kästle, Marktstraße, 3440 
Eschwege oder telaf. unter 05651/50685 ' 





%* Kleinanzeigen % Kleinanzeigen % Kleinanzeigen %* 





Achtung! Tausche CPC-Spiele auf Cassette. 
Briefe arı: Rolf Eppinger, Fraunhoferweg 4, 


7440 Nürtingen. Jeder Brief wird beantwor- 
tet! 





Kleinanzeigen 
lösen Probleme! 


Für nur 10,- DM hilft „Gompute 

mit“ allen Computer-Freaks bei 

der 

® Beschaffung von Hard- und 
Software 


© Verkauf von Hard- und Soft- 
ware 
@® Tauschaktion usw, 


Senden $ie Ihren Kleinanzeigen- 
auftrag noch heute ein und Ihre 
Angelegenheit erreicht eine 
Vielzahl von Lesern. 





Verschiedenes 









VERKAUFE meine Anleitung zum Flug sim. I, 
38 Seiten + 4 Flugkarten DIN A 3 für nur 10,- 
DM von Dieter Will, Itsahl 13, 2350 Neumün- 
ster, Tel. 04321731711 - 


BE Schneider CPC 464/664/6128 WE 

Wir retten alle durch ERA gelöschten 
i Programmfiles sofern diese nicht | 
durch neue überschrieben wurden. 
Diskette und DM 5,- (Schein) einsen- 
0 den an DATA-AID, Bahnhofstr. 42, 
M 5042 Erftstadt 1 









An alle schreibfaulen CPC-Fans! Tippe für 
2 Pf pro Zeile Ihre Programme ab. Zeitschr, 
vorhanden. Listings od. Anfragen an: E. 
Dreesen, Postfach 1220, 4132 Kamp-Lintfort, 
Tel. 02842/81197. 





% Kleinanzeigen * Kleinanzeigen % Kleinanzeigen 


Gompute mib 
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"Suche Software 


Commodore 64 - Commodore 64 - Commo 
Suche dringend Programme aller Art (Spiele, 
Anw. Adventure usw). Habe selber Pro- 
gramme für den C 64. Biete außerdem mas- 
senhaft Pokes für G-64 Programme an {bil- 
lig}!! Werverschenkt oderverkauft sehr gün- 
stig G 64, Zubehör, Drucker? Listen, Änge- 
bote, Listanfragen: D. Scheifgen, postig. 53, 
Bann 1 (1,50 RP} 





VC-20 ® ACHTUNG %# ACHTUNG %* C-64 
Wer von Euch hat ein Programm, welches er 
selbst geschrieben hat. 

Meldet Euch bei: Burghard Montag 
Königreicher Straße 35, 2153 Bork, 

Tei.: 04162/1632. 








Biete an Software 





YC-20 Programme, z. B. Boeing 727-Simula- 
tor. Angebote auch Tel. 02324/61862, 
sonst. geg. frankierten Umschl,, Horst Quer- 
furt, Postf. 843042, 4320 Hattingen 14. 





Einmalige Gelegenheit f. VC-20. Ich verk. H 
org. Spielecasseft. z. B. Kegeln, Luftkampf, 
Ufo etc... (Preis 50,- DM} + 2 Spielhallen 
Module (Hau den Lukas, Pole Posit.} NP! pro 
Stck. 98,-/VP: pro Stck. 40,- + Vbk. z. Cas- 
seitenrecorder und VC-20 (Preis: 30,- DM}. 
Schreibt an: Bernd Failner, Birkensteingasse 
2,8563 Schnaittach. 





Verkaufe „Labyrinth“ - das Super Spiei für 
den C-64, Cassette nur DM 10,- in Umschlag 
an W Lawnik, Neckarpromenade 9/70, 6800 
Mannheim 1. 













Programme für die Arztpraxis 
auf dem Schneider Gomputer 
Privatiiquidation - Leistung-Statistik 
Abrechnung-Unterstützung 
Info bei: Fa. EFFEKTA 


Am Wiggert 9e, 4500 Osnabrück 
Telefon (05 41) 45916 









12/85 


% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen % 








DIE NEUSTE SOFTWARE FÜR Ihren C-64 
gegen Unkosten abzugeben. Über 1000 
Spiele und Anwenderprogramme. 

info bei: Postlagerkarte Nr. 073861 C. 

5060 Beregisch Gladbach 1. 





Schneider CPC 454, Verkaufe Software zu 
Superpreisen. Liste gegen 80 Pfin Briefmar- 
ken von Markus Munck, Akazienweg 14, 7440 
Nürtingen, PS! Alles auf Casselie. 












Kennen Sie schon die 
tollen Weihnachtsan- 
gehote von $. 31 dieser 
Ausgabe? 


Alle Programm-Pakete zu 


Super-Preisen! 


CPC 464 echt Astrogeil, das Superprogramm 
JOYPLOTI!N! Sie zeichnen komfortabel mit 
dem JOYSTICK oder mit der Tastatur! Nur für 
den Schneider! Nur DM 7,50 (Scheck). Thor- 
sten Speckner, Ronhofer Weg 39, 8510 
Fürth/Bayern. 





Funkfernschreibprogramm für CPC 464 
{RTTN). Soft- und Hardware incl. Konverter, 
AFSK, Festtext-Drucker und Empfangsspei- 
cher Baudot und ASCI bis 200 Bard. 
Machen Sie Ihren CPC zum prof. Fernschrei- 
ber. Anwendung z.B. beim Amateurfunk. Info 
kosienlos bei: Stefan Peim, Soft- und Hard- 
ware, Friedrichsruher Str. 32, 1000 Berlin 33, 
Tel. 030/8242943. S 


® C-54: Superschnelle Action ® 
sa mit Wahnsinnsgrafik + .. 
..0 Topsound ... 


Kampf in fernen Galaxien! Irre Farbeffektel 
Astronaut + Battle + 3D-Fortress + Voka- 
belprg. + Tips + Tricks, alle zus. auf Quali- 
tätscass. = 15 DM + 5 DM Porto (Schein/ 
V-Scheck), Lieferung in 1 Tag! C. Wurzer, 
Grüntenweg 14, 8500 Nürnberg. 





* * Deuts. Graph. Adventure CPC 464 k * 
Jeder Ramm mit Bild/Eing. g. Sätze „Der Weg 
zur Wirklichkeit" -— 42kK/Spielstand spei- 
chern .. ‚original Spiel auf C. nur 25,- DM 
Scheck ©. baran R. Westhoff, Neißeweg 2-10 
8264 Waldkraiburg -— keine Raubkopien/ 
gleichzeitig Text u. Bild 
%* #* Deuts. Graph. Adventure GPC 464 & * 


kkAk% SchneiderCPC Kuh 
Preisgünstige Software für Ihren Schneider- 
GPC-Computer erhalten Sie bei Friedrich 
Neuper, Postfach 72, 8473 Pfreimd. Einfach 
das kostenlose Info anfordern. 


ee ME mh Be 


SCHNEIDER CPC 464: Über 500 versch. Zei- 
chen als Sammlung auf Kassette. Ansehen, 
aussuchen, verwenden. Figuren, Fahrz., 
Buchstaben, Zahlen usw. Jede Menge Anre- 
gungen für Ihre Programme. Nur DM 20,- 
(Schein/Scheck) im Brief an: J. Lüers, Bek- 
weiden 2, 2000 Schenefeld, Auslieferung 
postwendend: 





Commodore 64, VC-20, © 16/116, Vier + 
Spielpaket (5 Stück) 19,90, Adressino 29,90, 
A KFZ-Programme ab 19,90, Biblo 29,90, Kar- 
teikasten 29,90, 2. Floppyhandbuch 9,90. 
Katalog gegen 80 Pf-Briefmarke. Tino Hof- 
stedes, Computersewice, A.d. Windmühle 8, 
5010 Bergheim 5. 


kırk C 16/116 SUPERSPIELE! aar 
Info kostenlos bei Hannes Kaltenbach, Priel- 
mayerstr. 16, 7990 Friedrichshafen 1. 


Verk. 8 org. Spiele f, CPC 464 auf Cassette 
sowie Schneider Tolpcate, DM 150. Peter 
Stange, In der Senke 20, 5800 Hagen, Tel. 
02331/586733. 











C16/C116 Superspielel Info 1 und 2 gegen 
Rückporto bei Hannes Kaltenbach, Priel- 
mayerstraße 16, 7990 Friedrichshafen 1. 
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Ein spannendes Abenteuer 
| für Erwin und 

- natürlich -. 

auch für SIE! 


Schneider CPC 4654 


Erwin, dar jugendliche Heid, ist in das Zauherschloß des Ma- 
giers Grobius eingedrungen. Er versucht, die schöne Prinzes- 
sin Isabella aus den Fängen des garstigen Zauberers zu be- 
freien. Erwin muß ganz schön „asten“, um zu der gefangenge- 
haltenen Dame seines Herzens zu gelangen: er hat zehn Zim- 
mer mit jeweils fünf Schlössern zu durchqueren. 


Um in das entsprechende nächste Zimmer zu kommen, 
steckt er jeden Schlüssel in das magisch blinkende Schloß. 
Doch Achtung: Der Zauberer ist aufder Hut. Er versucht, Er- 
win den Schneid abzukaufen, indem er Laser-Bänder aus- 
sendet, die der wagemutige junge Mann nurdurch eine klei- 
ng Lücke passieren kann. Desweiteren | miteinerm dieser üblen Burschen endetfür | bereiten, kann Erwin ihr noch einen 
hetzt er „Hüpfer“ und Geister auf unseren | Erwin meist tödlich! Aber nur Mut, Erwint | Strauß Blumen pflücken und schenken. 
Held, die ihn verfolgen und nach seinem | Du wirst die Prinzessin schon befreien! | Die duftenden Blumen wachsen in den 
Leben trachten. Denn: Ein Zusammenstoß | Um der holden Schönheit eine Freude zu | Gemächern des Zauberschlosses. 


Hetz’ die Jungs auf ihn!“ 


ae 3 2 27 Markus Buehler Kran 200 MOVE 190,125 
I ER im Erb 27 2 20077 210 FOR i=1 710 10 
a: 222) 7800 Offenburg 1& ##* 220 DRAWR 59,0,3:MOVER 181,0: DRAWR 59,0 
; :ıMOVER -293,-2 
" Wr Gerne Programmtausch #eR%% 230 NEXT 
! 2 240 DATA 10, 9,3,249,114,10,90' 
' Version vom 9.6.85 250 DATA 10, 9,3,489,114,10,90 
& 260 ' s## Kopf x#* 
FO ' Haar Titelbild #880* 270 FOR k=1 TO & 
100 MODE 1:PRINT CHRS(Z3)CHR# (O1 1 DEGS INK | 280 READ ar „yryfa,ın,yn,s,@k 
0,0: INK 1,243 INK 2,1:INK 3,6: BÜRDER OrR z70 GOSLUB As0 
ESTORE 240 300 NEXT 
110 * »#* Beine a#%* 3109 DATA 30, 30,3,450,275,4,180 
120 MOVE 320,275 320 DATA 120,110,1,320,275,1,180 
130 FÜR i=1 TO 1& 330 DATA 20, 20,2,360,320,4,180 
1430 DRAWR -130,-150,23MOVER 132,150 540 DATA 19, 10,0,367,316,8,180 
150 NEXT 350 DATA. 10, 9,3,249,114,10,90 
350 MOVE 300,275 360 Pm=130: am=220: em=2650 
170 FOR i=1 TO i6 370 FOR j=1 TOD 10 STEP 6.5 
180 DRAUR 130,-150:MOVER -128,150 380 ORISIN 410+1,335+J3 
1906 NEXT 370 MOVE rm#COS (am+j) „rm#SIN (am+j) 
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400 FÜR i=amtj TO em+j STEP 10 

410 DRAW rmaCDSti} ,rm&SIN(i), 3 

4206 NEXT i,)j 

430 PEN 1:LDCATE 10,22:PRINT "Erwin im Z 
auber schloss" 

440 PEN Z1LDCATE 9,25:PRINT EIS? 
1785 by Markus Buehler" 

450 GOTD 520 ; 

460 ' #8 Unterprogramm Kreis #%% 

479 ORIGIN xn,yn 

450 FOR i=0 TO ek STEP s 


490 MOVE xr#C0S ti) „yr#SINti}sDRAW xr#COS 


ti) ‚yr*SIN(i-180) ‚fa 
500 NEXT 

510 RETURN 

520 RUN" I" 


Teil 2: 


10 KEY 150, "CALL %BCO2rpaper Orpen Iemod 
e Zelist"+CHREI1ISI:ıKEY DEF 68,0,150 

20 DEFINT a-zı RANDOMIZE TIME 

SO ° #*##* Nur einmal durchlaufen ##%#% 
40 DIM 5115) ,hue${4) „hi (11) „na$ (10) „toda 
{10} 2hi (11) =32000 

50 GOSUR 2850:G60TD 1780 

0 ' Kit vor jedem Spiel #*##%* 

70 le=S:runde=1esc=0: as=0:s1=0:PAPER#1 „1 
4:CL5:G0T0 14909 

80 ' #et## vor jeder Runde ###%# 

90 GOSUB 20301 80SUB 2250 

100 DN runde GOSUB 2130,2140,2150,21&0 2 
170 ,2180,2190,2200 ,2210,2220 

110 PEN IS: PAPER 14 

120 ° tk Spielbeginn ###%%# 

130 IF te OR t51l AND S0(2)<>132) THEN te 
=0:G0T0 1070 

140 xalznaı yol=ya 

150 IF NDT INKEY(9) OR NOT INKEY(76) DR 


INT(bz/2)<>bz/2 THEN GOSUB 1250:60T0 120: 


ELSE bz=0 

150 IF NOT INKEY(O) DR NDT INKEY(72) TH 
EN ye=yse-lıri=1ter=1-er 

170 IF NOT INKEY(Z2) DR NOT INKEY(73) TH 
EN yesye+lıri=Zıer=i-er 

180 IF NOT INKEYtB) OR NOT INKEY(74) TH 
EN se=xe-lrri=Fıerel-er 

190 IF NDT INKEY(1) OR NDT INKEY(75) TH 
EN xesxetliri=dier=1-erıIF xe=20 THEN xs 
197 
200 ON TEST ((xe-1)#32+16, (25-ye)#1lä+ö)+l1 

GOTOG 270,270,270,270,270,270,270,270,27 
0,1070, 1070, 1070, 1070, 850,210,210 
210 DIeIF TEST (xe0-1) 832416, (25- vaaızsıa 
+6)=7 THEN 230 
220 LDCATE xe0,yeOs PRINT CHR$ (3233 
:2350 LOCATE xe,yerıPRINT CHR&(190+2# (ri MO 
D Z’+er)r 
240 EI:E0OTO 120 
250 MODE 2:FAPER O:PEN 1sINK 1,24 
2&0 END . 
270 7 ###Hk FELD NICHT MOEBLICH #8r#* 
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250 IF xe<>xeO THEN ve=x80:50T0 200 

290 IF ye<>yaO THEN yazyeüıGOTD 200 

300 GOTO 210 

z10 a Unterprogramm 
0 320277 

320 ' ####+* Huepfer #88 

330 DIzPEN 10 

340 hxiehxltrihls IF TESTChR 171) #32+16,2 
34)=15 THEN te=1 


350 LOCATE hx1,11:PRINT hues(Z2-rihl+zhus 


33 

3560 IF {hxi=18B AND rihi=1) DR thril=1 AND 
rihl=-1) THEN hxi=hrl+rihlsrihl=-rihl 

370 BI:EFEN 10: hxZehrz+rih2ızhue=1-zhuer Il 

F TESTiIChx 2-1) #32+14, (25-hy2)s14+10)=15 
THEN te=1 

380 LDEATE hx2 ‚by PRINT hues (Z-rih2+zhu 
e)3 


>70 IF ihx2=18 AND rih2=1} OR {hx2=i1 AND 
rih2=-1) THEN hxZsehxZ+trih?2rrih2==rih2 
400 FEN 15:RETURN 

410 ' ##8#% Band K#R##* 

420 DI:PEN 9 

430 xbi=xbi+ribi:IF xbil=19 DR xbi=0 THEN 
ribi=-rib1:G60T0 430 

440 IF TEST ((xbi1-1) #32+14,234)=15 THEN t 
e=i 

450 LOEATE xb1,11 

460 IF ribi=1 THEN PRINT CHRS$ (143) CHRS 3 
Z)3ELSE FRINT CHRE (32) CHR& (143) 

470 DI:PEN 9 

490 xbZ2=xb2+trib2: IF xb2=17 OR xb2=0 THEN 
rib2=-rib2:G60T0 480 

470 IF TEST((»xb2-1)#32+16, (25-yb2)*16+10 
I=15 THEN te=1 

500 LOCATE xb2,yb2 

510 IF rib2=1 THEN PRINT CHR&{L14S) CHRSE (3 

Z}sELSE FRINT CHR& (32) CHR# (143) 31 

520 PEN 15:EI:RETURN 

530 ' ###4* dummer Geist 00% 

540 xagO=xagı yagl=yag 

s50 IF RND>0.5 THEN xag=xag+( (0.5-RND) >0 
I:yag=yag+((0.5-RND) >O)=(yag<i4)+(yag>23) 
:GOTQ 570 

S5a0 Kag=xag+ (kagdxe)-(xagixe)ıyagsyag+iy 

ag’ye)- (yagiye) 

570 ON TEST Ülxag-1)#32+1&, (25-yag)#1lö+10 
I+1 GOTO 810,810,610,610,510,610,6810,410 
‚10,650,580,580,580,610,580,580 

S80 DIsIF TEST{ixagüO-1) #32+16, (25-yago)* 
16+5)=12 THEN PEN 14:L0CATE xagO,yagdıPR 
INT CHR#(143)3 

390 PEN 12:ILOCATE xay,yagı PRINT EHR& {201 
33 

6800 PEN 15:5EI:RETURN 

#10 ' et nsuer Platz *+* 

&20 IF yagü<>yag THEN yaygzyagdıBOTO 570 

630 IF xagü<>xag THEN zag=xag0: GOTO 570 

540 GOTD 580 e 

&50 ’##% am blauen Band ##* 

660 IF xag=xe AND Yag=ye THEN xagskagl:y 

eg®yagü0:GOTO 570 
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670 yag-yag+t{yag>yel-iyagiya):IF runde>5 
THEN a=5#RNDs zagmmag+ (ax) -(a>=4) 

675 G0TO 3706 

&E0 ' #88 auf Erwin gestossen ### 

670 te=1:5070 580 

700 ' ###%# verfolgander Geist ####%* 

710 xvgü=uvgryvgd-yvg 

720 wvgenvgt invorxe)-(kvgcxel: yvgayvgriy 

vgrya)-(yvgiye) 

730 OM TEST (xvg-1)#32+16&, (25-yvog)#16+10 
+1 GOTO 7709,770,770,770,770,770,770,770 
‚770,800, 740,740,740,770,740,830 

7406 DI: IF TEST (txvg0O-1)#F2+16&, (25-yvgO)#* 
iö+ä)=11 THEN PEN i4:L0OCATE xvgQ,yvgüsFPR 
INT CHR& (143) 

750 FEN 11sL0CATE »vg,yvgsFRINT CHR#$ (201 
}s 

7&0 PEN IS:EI:RETURN 

770 ' #%*%* neuer Platz fuer verfoalgender 

Geist ##* 

780 IF yvgü<s>yvg THEN yyvg=yvgo:SDOTD 730 

770 IF zvgö<>rvg THEN xvg=#vg0:GDOTD 730 

800 ° ### am blauen Band ##* 

810 IF yvg=ye AND xvg=xe THEN yvg-yvgüız 

vg=xvg0O:50TD 750 

B20 yygsyvg+tiyvg>ye)-[yvgiyel:sIF runde>3 
THEN a=rdtkRND: zvgervgt iat2}-tar=d) 

525 GDTO 730 

830 te=1:E0TD 740: ' ###* auf Erwin gesto 

ssen 

B30 DISIFRINT ECHR${T)geter0:El:G0OTO 210 

8509 7 ##### Schluessel holen (1} - Schiu 

essel abgeben {23 as - 

840 IF sl THEN 970 : '#ar zu (DD 

870 sli=xe0: yezyaü 

880 DI: IF yei>24 THEN 210 

870 SBUND 1,80,72,0,4:FOR i=1 TO 100:NEX 


900 FAPER Z:PEN O:LOCATE xe0,25 

FB10 PRINT CHR$ (2093; 

720 PAPER 14:PEN 13:LOCATE 81 tx00/4),2 
#30 PRINT CHR# 1202); 

940 EI:PEN 15 

750 sl=xR0:5DUND 2,20,-toda trunde) „O,2,2 
9&0 GOTO 210 

970 ° sur {2) F#* 

GFRO vyearyaüıIF yai>Z THEN 210 ELSE CALL & 
BCA? ı ' #** Sound ab 

990 sc=sct2ü0:ras=sastl:ı60SLUR 1420 = ' 4% 
zu Änzeige 

1000 FOR i=1 TD 100:NEXTıSUUND 1,120,72, 
0,4 

1010 DIELOCATE s1 (5174) ,2:s PEN Ö:PAFER 14 
1020 PRINT CHRF(202)3 
10360 PEN 15:PAPER 14:EI 
1040 sl=0 

1050 IF as=5 THEN 1450: 
e 

19509 GDOTD 210 

1070 ’ «##33 Erwin auf toedliches Hinder 
niss gestossen FHr4#+ 

10980 DI:FOR i=0 TO 3za=REMAIN(I)J:ENEKTIEI 
:CALL &BCA7 


”*#* neue Rund 


Gompute emib 


1090 LOCATE xeö,yeö:sPRINF " "3:ıLÜCATE xe 
„ye:PRINT CHRS (ZHIEHRELOICHRS SAZICHRE (1) 
CHR# (190+ri MOD 2) CHRE ZI CHRSE (O} 

1100 MOVE (ixe-1)#32, (25-ye)#löri14 

1110 FOR i=0 TOD TıDRAUR 31,0,14:MDVER —3 
1,-2 

1120 WHILE SUil)=132:CALL RBDIT: WEND: SDU 
ND 1,200+(50#1),30,6,,1:3NEXT i:5QUND 1,6 
10,50,6 

1150 FOR i=1 TO S00:NEXT 

1140 FRINT CHRE&(23ICHRFÜII: PLOT -100,0,1 
1150 te=0: Je=le-1ı IF le=0 THEN 1590 

1180 LOCATE 20-12,1: PRINT" "5 

1170 LDCATE se,ye :PRINT" "3: LDCATE xeO 
‚yedıPRINT" "3 

1180 FOR i=1i TU 15:LOCATE 20,i1:PRINT CH 
RS{17):1:NEXT 

1190 LOCATE xvg,yvg:PRINT" "3 

1200 LOCATE xag,yag:FRINT" "5 

1210 IF si=0 THEN 1250 

1220 LOCATE s1,25:60SUB 2430: " #i%* Schl 
uessel 

1230 LOCATE sl (s1/4) ,2:PEN S:FAPER FıPRiI 
NT CHR$(202); :PEN 15:PAPER 14: ° #4* Schl 
vesselloch ö 
1240 sl=0 

1250 GOSUR 3220:G60SUB 2030: FOR i=1 TD 50 
O:NEXT:GOTO 1006 j 

12650 ' ##3+=* Blume ##*%*#+ 

1270 IF TEST (xe-1)*32+16, (?24-yelriötö)t 


->& THEN RETURN 


3280 DI:TAG: IF bz=0 THEN hp=o 

1270 IF SG<1)< 7132 THEN SOUND 1,100,24,0 
as 

1300 hp=1-Ap:PLOT -100,0,1 

1310 IF hp=i THEN GOSUB 1390: 6508UB 1410 
ELSE GOSUR 14160:60SUR 1390 

1320 TAGOFF:bz=batl:ılIF bz=iO THEN GÜSUB 
1340 . - 

1330 PEN 15:PAPER 14: EI: RETURN 

15340 ' #=#4* Blume gepflueckt #*+ 

1350 FAPER 3:PEN 7 

1360 LOCATE xe,ye+ti:PRINT CHRE&I233)1, 
1370 bz=0: sc=sce+104+48GN (81) #20: BOSUB 1425 
1390 RETURN 

1370 ° »#* Huspfen K### 

1460 MOVE (ne-1) #32, (25-ye)#1&6+14: PRINT C 
HR&{190+2#tri MOD 23)3 RETURN 

1410 MOVE txe-1) #32, (26-ye)#16r14: PRINT C 
HR&(190+2#tri MOD 23); RETURN 

1420 ° #88%% Anzeige KRaR% 

1430 DIEFEN B:PAPER 7:LDEATE 5,1 

1440 FRINT USTNG"#HHH#" 5 5c 4 : RETURN 

1450 ° ##r%°8 neue Runde #*H##* 

1460 FOR i=0 TO 3:a=REMAINtIi)=:NEXT 

1470 runde=srunde+lras=0:le=le- trundess)+ 
(le>5) 

1480 sc=sctrunde*r10: GOSUB 1420:FOR i=1 T 
QD 10005 NEXT 

1490 IF runde>10 THEN 168% 

1500 CLS#l:lev&=SPACE$F# (5) +" LEVEL "+STRE IR 
UNDE) +SPACES (7) 
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1510 PAPER 14:PEN O:LOCATE 7,13:PRINT"le 
vel”’srunde-i:FOR i=i TOD SOO:NEXT 

1520- FOR i=1 TO 19 

1530 FEN CO: LOCATE i,135:PEN BSıFRINT MIDE 
(levf,i,1)sePEN 15:PRINT CHR#{190ri MOD 

23 

15406 IF MID&t(lev#,i,13>" " THEN SOUND 1, 
150-1#10,20,12,,5 

1550 FOR j=1 TO Z00: NEXT 

1550 NEXT+LOCATE 20,13: PRINT " 

1570 FOR i=1 TO 3000: NEXT ; 

1550 GOTO BO 

4570 ’ WE ENDE #urkr 


1500 ELS#2:PEN 7:LDOCATE 1,11:PRINT "Game 


over"ssPEN 1:PRINT CHR$ (23) CHR$ (09) 

1510 FÜR i=83 TO 290 STEF A:FOR k=6 TOD 15 

STEPF 2 

1520 IF TEST (i-8,224+k)=14 THEN 1550 
1830 PLOT 2#1 ,2%&+192,8:PLOT Z2#i+4,2%k+ 
'172 

1540 PLOT 2%1,2%k+190 :PLOT 2#1r4,2%#k+ 
170 

1550 NEXT k,i 

1840 LÜCATE 1,1 

1570 FÜR i=1 TO 2000: NEXTıBOTO 1780 

1580 ' sur Alle Zimmer geschafft F8%% 
1570 FAPER #1,14:CL5#1: PEN 11 

1700 LOCATE 1,5: PRINT" BRAVvD !!ı" 
PRINT 

1710 PRINT'Es ist Dir gelungen":PRINT"d 
en boesen Zauberer ":PRINT"zu uweberlist 
en, und"sFRINT"die Prinzessin zu'"sPRI 
NT'"befreien. Als Beloah-" 

1720 FRINT"nung verdoppelt sich":ıFRINT"D 
eine Punktzahl." 

1720 FÜR i=1 TOD 200:NEXT:SOUND 1,120,72, 
'O,4:sc=2*tscıbOSUB 1420 

1740 DI:FOR i=6 TO 3ra=REMAIN(I)TNEXTEEI 
ıCALL &BCA7? 
.4750 RESTDRE 3340: 0KT!=2 

1760 WHILE INKEY{47}=-1:0N 50 (zZ) GÜSLB 
3270: WEND 

1770 CALL &BCA7? 

1780 " »**## High Score ausdrucken ###r* 
‚1790 PAPER 14:PEN 15:CL8 

1800 IF sc>hi 1) THEN GOSUB 1870 

1810 FOR i=10 TO 1 STEP -—i 

1820 PEN({i MOD 3)#7+1) 
:1830 PRINT LEFT$(na$(i},103 TAB{1S)USING 
tät shi li) PRINT 
1840 NEXT 
1850 FRINTIPEN S:PRINT"Noch ein Spiel (J 
Zw" 
1850 Okt!=2:RESTORE 3390: CALL MBERT, 
1870 a$=LQOWERS (INKEYE#) 
1880 IF a$="n" THEN END ELSE IF as="j" T 
HEN CALL &BCA7:6G0T0 &0 ELSE ON S0O(2) G0S 
UB 3290:60T0 1870 
1870 ° »aua4% Sortieren ###%#+ 
1700  PRINT"Bravo,Du bist in den" 
1910 PRINT"TOP TEN tt! "PRINT 
'1926 PRINT"Gib bitte Dein Name" 


GSompute mik 
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1730 PFRINT'"ein": PRINT 
1940 PEN B:FRINTSPRINT TAB{4}STRINSEtLI14 
„"&')EPRINT TAB(4) "#"SPE(123"#":PRINT TA 
B{4> STRINGFI14,"*") 
1550 WHILE INKEY$<>"":WEND 
19&0 PEN Z:LDCATE 5,11: INPUT nas(1) 
1970 hi t1})=scıi=z 
1980 WHILE hıdti)shitırl) 
1990 kehi (i-l)shiti-i}=ehi (i)ıhili)ek 
2000 k$ena#li-i)enas(ti-l)enasti)enasti) 
=k# 
2010 i=i+1:WEND 
2020 ECLS: RETURN 
20350 ' ###r Anfangsbelegung der Wariabe 
in #3%#%#% 
2040 xe=2: ye=3:xeü=2: yaü=3 
2‘ #** Erwin 
2059 hx1=1:hx2=19:hy2=135rrihlelırih2=-1: 
zhue=0 : ' ##%* Huepfer 
2050 xvg=1F:yvg=4:tvg=14 
: " #%*%* verfolgender Geist 

2070 zag=Pr yag=-22 

ı ‘ #** anderer Geist 
2080 sbZ2=10: yb2=e12: rib2=lıxbl=eild:eribiel 

= '° %*#* Band 
2090 RETURN 
2100 hy2=13:yb2=12: RETURN 
2110 hy2=12: yb2=13:RETURN 
2120 * ###%*%* Zeitabhaengige Unterprogram 
ne starten ##r%* 
2130 GOSUB 2230s RETURN: ° I 
2140 GOSUB 2230: EVERY 40,2 GOSUB 540: RET 
URN= ' II 
215090 GOSUB Z100:EVERY 15 GOSUB 330: EVERY 
30,1 GOSUB 470:505UB 3220: RETURN 

z2160 GOSUR 27350: EVERY 40,35 GOSUB 710:RET 
URN: ° IV 
2170 GOSUB 2230: EVERY 40,2 GDSUB S40:EVE 
Ry 40,5 GOSUB 7105 RETURN: Mu 
2180 GOSUB 2240: RETURN 


‚2170 GÜOSUB 2240: EVERY 40,2 GOSUB 540: RET 


URN» ' WII 

2200 GOSUB 2240: EVERY 40,3 GOSUB 710: RET 

URN» ° VIII 

2210 GOSUB Z110:EVERY 18 GOSUB 370: EVERY 
30,t GOSUB 420:G605UB 3220: RETURN 

2220 BOSUB 2240:EVERY 40,2 GOSUR 540: EVE 

RY 40,3 GOSUB 710: RETURN: a. 

2230 GOSUB 2100,EVERY 20 GOSUB 330:EVERY 
50,1 GOSUB 470:60SUB 3220: RETURN " 

2240 GOSUR 2110:EVERY 20 GÜSUB S70:EVERY 
50,1 GOSUB 420:605SUB 3220: RETURN 

z250 ' aaa Spielfeld Krrr* 

2250 MODE O:RESTORE 2500:1 PAPER 7ıPEN 8: PP 

RINT"ScC"3USING"##RH#" Esch PEN SıPRINT" H 
I" USING'HHHHR" hi (LO) sPEN 15SıPRINT SPE 
5-12) ETRING$ (1e-1,170)3" "JCHRS (2IICHRE 
(133 

2270 FOR i=1 TO 24 

22950 READ a# 3 

2290 FOR j=1 TO 192b$=MID$ (a8, j,12):0DN VA 
Ltb$) GOSUB 2310,2320,2390,2430,2470:PAP 


Fortseizung $. 60 
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Was gibts Neues auf "dem Software-Markt? 





Intelligenz für den 154 


INTDATA 

unterhält sich mit jedem C-64-Besitzer. 
Ein Programm mit eigener Intelligenz. Es 
lernt und lernt. 


INFDATA 

ist ein einfach zu bedienendes Programm 
und kommuniziert mit jedem C-64-Besit- 
zer. Es erweitert sein Wissen und seinen 
Wortschatz bei jeder Eingabe praktisch 
unbegrenzt (Einschränkung nur durch die 
Speicherkapazität der 1541 Floppy). 
Durch logische Verknüpfungen entwickelt 
dieses Programm eine eigene Intelligenz, 
die anschließend lustig angewendet wer- 
den kann, 


Ein Spaß für jeden C-64-Besitzer. 


ku kuchuhih 


THE CAPTIVE 
für Schneider GPC 


THE GAPTIVE ist ein neues Realzeitaben- 
teuer welches den Spieler mit einer her- 
vorragenden rollenden Graphik in Faszi- 
nation versetzt, Verloren in einem Irrgar- 
ten im Tal der farbigen Toten ist es dem 
Sen fast Unmaglih den Schlüssel in 





v8 


Darkpowers 
für Schneider CPC 464 und 664 


Ein dunkler nebliger Novemverabend im 
Jahre des Herrn 1890. Ein einsamer Reiter 
wird des nachts von wilden dunklen Ge- 
stalten überfallen und niedergeschlagen. 
Als er wieder aufwacht, befindet er sich in 
einem Schloß. Jeder erinnert sich an den 
letzten Satz der Reiter: „Befreie uns von 
dem Dämon, und bringe uns den Beweis 
für seinen Tod!“ - er oder du. 





die Freiheit zu finden. Er muß mit vielen 


Gegnern kämpfen, wobei der gefährlich- 
ste sicher der Schicksalsbote, der immer 


wieder auftaucht, ist. Berührt man diesen, | 


ist man direkt verloren. 

Viele der scheinbar nutzlos umherliegen- 
den Gegenstände können bei richtigem 
Gebrauch in die Freiheit führen. Nachdem 
man einige Zeitin den Wäldern, Irrgärten 
und Seen umhergeirrt ist, sieht man am 
Ende des Tales eine Burg. Anzunehmen, 
daß in dieser Burg der Schlüssel zur Frei- 
heit hinterlegt ist. 

Bis man jedoch in diese Burg gelangt, hat 
der Spieler eine ganze Menge Gefahren zu 


überstehen und muß durch Geschick und . 


Mut manch gefährliche Situation retten. 
Durch hervorragende Graphik verspricht 
THE CAPTIVE Spannung von Anfang bis 
zum Ende und garantiert stundenlanges 
Spielvergnügen. 


Compubs miP 





Diese Story gibt es sofort auf Diskette zu 
DM 79,-- für den Schneider CPC 464 und 
CPC 664. Durch eine ganz hervorragende 
Grafik, die diese gruselige Geschichte zum 
Abenteuer am Bildschirm werden läßt, 
wird Spannung und Faszination für den 
Spieler über lange Zeit garantiert. DARK- 
POWERS ist ein Grafik-Text-Adventure, 
welches in deutscher Sprache geschrie- 
ben ist, 
So erwartet der Computer Eingaben vom 
Spieler wie „schüttel Buch“, „nehme 
Hammer“ oder „sehe um“. Der Computer | 
erwartet prinzipiell zwei Wörter, die in der 
mitgelieferten Vokabelliste nachzuschla- 
gen sind. Händleranfragen: 

Aushware GmbH 

An der Gümpgesbrücke 

4404 Kaarst 





JAMMIN 


Bei dem Namen JAMMIN erklingt noch 
keine Melodie, wer vermutet schon ein 
Spiel um und mit Musik dahinter. Wenn 
Sie sich gerne an schönen Klängen er- 
freuen, dann begleiten Sie unseren Held 
RODNEYE auf seinen Reisen voller Mißge- 
schick. Denn der Spielplan ist ganz ein- 
fach, Die Instrumente der Band sind ab- 
handen gekommen und Rodney muß die- 
se wieder herbeischaffen. Führen Sie Rod- 
ney durch jedes Bild über das Förderband - 
zu den Instrumenten und fügen Sie sie in 
der Bildmitte zu einer Band zusammen. 
Sowie ein Instrument an seinem richtigen 
Platz ist, wechselt der Rhythmus der Mu- 
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gramme der Firma Rush Ware. 
CPG-464 


1. Warlord 

2. Codename Mat ? 

3. A View to a Kill 

4. Starion 

5. Slapshot 

6. The Way of the expfoding Fist 
7. Decathlon 

8. Ghosibusters 

9. Fighter Pilot 

. Superstar Challenge 

. Frank Brung's Boxing 
. Wizard’s Lair 

. Rocky Horror Show 

. Highway Encounter 

. Dragontorc 

. Flight Path 737 

. 3D Star Strike 

. Superpipeline 2 

. House of Usher 

20. World Cup 


DCRDKECKCHEREHEHCKDKTHTHERCHTKCHEND 


KEHRSHSHRRERERERFREKF ESCHE HE H 


sik, undesistein Vergnügen, den Klängen | 


zu lauschen. Aber Vorsicht vor dem Hin- 
eintappen in eine der herumirrenden No- 
ten, die einen schrecklichen Disakkord in 
das Musikstück bringen. 
Das alles hört sich leicht an, aber rund um 
. das Bild läuft ein vielfarbiges Förderband 
und man braucht seine volle Konzentra- 
tion, um auf eine Plattform der richtigen 
: Farbe zu springen. Der Bildschirm ist vol- 


. ler leuchtender Farben. Nach einer Weile - 


dreht sich der Kopf und bald darauf rotie- 

. ren Ihre Augen! 

Ein Spiel für die Freunde der Musik und 
solche die es werden wollen. Hergestellt 
von TASK SET, im Fachhandel für ca. 
29,-- DM, erhältlich und auf dem Schnei- 
der CPG 464/664 funktionsfähig. 
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Die nachfolgende Hitliste ist die offizietle Verkaufshitparade für Spielpro- 


KERERRERKEHSCHEHR FR FRE RK H 


Software-Hitliste der RUSH-WARE- 
Programme 


654 


. Summer Games 2 

Elite 

. A View to a Kill 

. Rescue on Fractulus 

. Beach Head ? 

. Hyper Sports 

. Rock’n Bolt 

. Summer Games 1 

. Tour de France 

. Frankie goes to Hollywood 
‚ACE 

. Silicon Warrior 

. Mig Alley Ace 

. Doughboy 

. The way of the exploding Fist 
.Jump Jet 

. Impossible Mission 

. Warp 

. Flightsimulator 2 ° 

20. Football Manager 


BFERERERRELCHRECHKEERFOKEHD FH FSK 


DEFEREND OR DIE 
für Schneider EPG 


DEFEND OF DIE von Alligata ist das erste 
Defenderspiel, das für den CPC produziert 
wurde. Seit die Originalversion in die 
Spielhallen kam, ist daraus so etwas wie 
ein Kult geworden. Die Anziehungskraft 
liegt darin, daß es sehr schnell und beson- 
ders schwierig zu spielen ist. Und das 
macht ja den besonderen Reiz vieler Spie- 
ie aus, daß man beweisen kann, man ist 
besser als der Computer oder besser als 
der Programmierer angenommen hat. 

Wenn man erst mal den Bewegungsab- 


Somputs mi 


report 


lauf in sich gespeichert hat, wenn man 
weniger mit dem Kopf sondern mehr mit 
dem Gefühl reagiert, dann stellt sich diese 
Wonne in der Magengrube ein, die kein 
Joint ersetzen kann. Und die Befriedigung 
ist allemal die paar Watt wert, die der GPC 
dabei verbraucht. 


In DEFEND OR DIE sind die marodieren- 
den Horden aus dem Weltall mal wieder 
da und diesmal sind sie auf Menschen- 
fang aus. Im niedrigen Flug rasen sie über 
die Erdoberfläche, fangen die Humanoi- 


. den ein und bringen sie zum Mars oder 


weiß Gott wohin. Man merkt es am Ge- 
Schrei, wenn sie strampelnd himmelwärts 
gezogen werden. 


Selbst zu diesem Zeitpunkt ist noch nichts 
verloren, denn nun kommt ihr Auftritt! Als 
der große strahlende Heid und Starfighter- 
Pilot sind Sie blitzschnell zur Stelle und 
hauen dazwischen, daß der Laserstrahl 
sich verbiegt. Sie drehen auf dem Hand- 
teller, haben uen von hinten anschleichen- 
den Feind nun vor sich und feuern ihm ei- 
ne Ladung Ihres Lasers zwischen die 
dichten Augenbrauen. Mit der Zerstörung 
des Außerirdischen fällt der Humanoid in 
Richtung Erdoberfläche. Sie fliegen mit 
der Präzision eines alten Fliegerasses auf 
ihn zu, fangen ihn auf und bringen ihn si- 
cher zur Erde zurück. Seinen Dank wehren 
sie bescheiden ab, außerdem bringtesIh- 
nen immerhin 1000 Punkte. 


Nun folgt Angriffswelle auf Angriffswelle, 
aber mit Ihrer unglaublichen Geschick- 
lichkeit pusten Sie alles vom Himmel, was 
sich bewegt. Der Bildschirm zeigt die 
Landschaft der Erdoberfläche und rollt in 
die Richtung, in der Sie sich bewegen. Sie 
übersehen den Luftraum im Blickfeld und 
können den darüber hinausgehenden 
Luftraum auf dem Radargerät beobach- 
ten. Die feindlichen Angreifer werden 
durch eine Reihe farbiger Punkte ange- 
zeigt, sind aber leicht zu idenüfizieren. 


Die Seitwärtsbewegung erfolgt einwand- 
frei, Figuren und Farben entsprechen der 
Originalvefsion. 


Hersteller: ALLIGATA; ca. DM 33,-- im Fach- 
handel. 
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ER 7ENEXT jsGOSUB 2490: NEXT i 

2300 GOSUB 2740: RETURN 

2310 FEN 14:PRINT CHR& (143) 4 RETURN : ' 
*”t# freies Feld 

2320 ' *#%** Hinderniss #4* 

2330 IF RND>0.95 THEN GOSUB 2350 ELSE FE 
N GeFÄAFPER ZEPRINT CHR$ (204) 35 

2340 RETURN 

23520 ° ##*# Blume *#+ 

2360 FEN 3:PRINT CHR$ (198) 3 :PRINT CHRF$(2 
ZICHRE (133 : PRINT CHRS{BICHRE(LISICHRSE CA)C 
HRS{1FP)CHRS (BI CHRS$ C1SICHRS$ IS) CHRF (200) 3 
23709 FRINT CHRE& (ZI CHRS$ (0) 5 

2380 RETURN 

23970 ' #84 Stein *## 

2400 PAPER 2 

z410 PEN 1:PAPER 2:PRINT CHR& (204); 

2420 RETURN 

24360 ' ### Schluaessel ### 

2440 PEN O:PRINT CHR$ (24) CHRSE (Z33ICHRE (2 
4)%3:FRINT EHRS$ (22) EHRE I} CHRS$ (BI) CHRS$ (15) 
EHR$CLZICHRE (203) 5 

2450 PRINT CHR$ (22) CHRE& (O0), 

24&50 RETURN 

2470 ' *#%* Schluesselloch ### 

2490 PEN &:PRINT CHR$ (202), :RETURN 


2490 PAPER 7ıPRINT CHR$ (32); :RETURNS ' u 


* Randfeld #*# 

2500 DATA 353335333533 I53II53I 

2510 DATA 3131313131313131313 

2520 DATA 11111111411111111111 

2530 DATA 1211121121121121121 

2540 DATA 411:111111111411111 

2550 DATA Z2112112112112112112 

2550 DATA 1111i111111111111111 

2570 DATA 11141i11t11111111111 

2580 DATA 1211211211211211211 

2590 DATA 11111111111111111i1 

2500 DATA 1331111 41111111t 111} 

2810 DATA 11litt1i1l2liillılili 

2520 DATA 1121121121121121121 

2530 DATA i111A11111111itı1ııt 

2540 DATA 111111111141 111 11111 

2550 DATA Zi121121121121t2112 

2550 DATA 1144111111111 111111 

2570 DATA 1111111111111 111111 

2680 DATA 1121121121121121121 

28970 DATA 1111111111111 111111 

2709 DATA 1211211211211211211 

2710 DATA 1111111i1111111111it 

2720 DATA 3131313131313131313 

2739 DATA 3432343234323432343 

2740 ° #44 Schluesselloecher zuordnen 
HERE 

2750 ERASE sl:DIM si (9) 

2760 FOR i=2 TOD 18 STEP 4 

2770  a=INT(RND#5)+1l:IF elta) THEN 2770 
2780 sil(a)=i 

2770 NEXT 

2800 WINDOW#1 ,1,20,2,25: PAPER#1 ,14 
2Bi0 WINDOW#2,1,20,11,14: PAFER#2,14 
2820 FÜR i=i1 TO 10:READ toda (i)ısNEXT 


Compube mit 


2850 DATA 75,75,75,85,100,75,80,70,80,1i 
[#) 
2540 RETURN 
=2850 ; 
ZBAO "ar Unter Sroer ann eigene Zeiche 
nn Kar 
2870 SYMBOL AFTER 189 
2880 ' #*# Erwin Ha 
2870 EYMBOL 190,48,104,124,104 ‚49,200, 14 
0,178 » ' *## Rechts Schritt 
2900 SYMBOL 191,48,104,124, 104,48, 72,72, 
108 = “rk Rechts 
2910 SYMBOL 192,12,22,62,22,12,19,49,99 
ı ” ### Links Schritt 
2920 SYMBOL 193,12,22,62,22,12,18,18,54 
0%. ##%# Links 
29730 ’ ##* Huepfer ##%* 
2940 SYMBOL 1974,16,44,56,16,40,40,40, 16: 
huestl})=" "+CHR£I194):' Links oben 
2950 SYMBOL 1#5,0,8,22,28,8,20,28,8 = 
huet(2)=" "+CHRS{195)8’ Links unten 
2920 SYMBOL 1765,16,104,56,15,40,40,40,16 
shue$ (F) =SCHR$ (1965) +" "Er Rechts oben 
2770 SYMBOL 197,0,8,52,28,8,20,28,8 H 
hue$ (4) =CHR#F(19MI+" " 2 Rechts unten 
2380 ' *#3* Blume ##* 
2990 SYMBOL 198,255,129,1685,153,153,165, 
129,255 ı *** gruene Teile 
3000 SYMBOL 179,0,4,72,32,4,18,32,0 
ı ' #** Bluetenblasetter 
3010 SYMBOL 200,0,32,18,4,32,72,4,0 
: * #** Bluetenblaetter 
3020 SYMBOL 201,60,70,50,24,50,125,90,25 
5 4 *4# Geist #%#+ 
3930 SYMBOL 202,255,1797,131,199,239,199, 
131 3 *##+ Schluesselloch 
5040 SYMBOL 203,0,0,32,92,40,0,0,0 
ı ' #%*#* Schluessel 
3050 SYMBOL 204,109,182,109,182,109,182, 
109,182 r * **%* Mauer ###* 
3050 MODE 0 
5070 INK D,3>INK 1,2:INK 2,24: INK 3,9: IN 
K 4,7,14:3 INK 5,14,78 INK 56,7: INK 7,0 
3080 INK 8,6: INK 5, 1:INK 10,15: INK 11,25 
sINK 12,19: INK 13, 3, 25: INK 14, Qı INK 15, 2 
4 
3090 BORDER 0 
3100 ' *##+* High Score Tabelle #ax** 
S110 RESTORE 3110:DATA Frankie ,MeDonalds 
‚Dr.Mabuse,F.Panther ‚Donald D. ‚Werner „As 
terix ,‚Schlappie  ,‚McNüugget ‚Heino 
3120 FÜR i=i TO 10 
31360 hiti})=50+50%8i ıREAD nas(li)} 
3140 NEXT i 


‚3150 ' #444 Sound ###4#* 


5180 ENT -1,1,2,1 
5170 ENV 2,5,2,2,5,-2,1:ENT -2,1,1,120,1 
‚0,60: *+# Uhr 


3180 ENV 3,1,13,8,12,-1,1: ENT 3,5,2,2,12. 


„Si: ##* Huepfen 

3190 ENV 4,1,12,2,10,-1,5,5,0,2:ENT 5,10 
1,2 

a», 
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3200 ENV 5,2,0,1,1,15,1,3,-1,2 - 3320 SOUND 2,okt!shoehe,4* dauer „0,5 


3210 RETURN 3320 RETLRN 
32260 ' ###*# Barıd zeichnen #R### - 33409 DATA s19,5,253,3,239,5,213,25,319,5 
3230 DI:FEN 9:PAPER 14: IF runde>5 THEN ,253,5,239,5,213,25,319,5,253,5,239,5 
3260 3350 DATA 213,10,253,10,317,10,253,10,28 
3240 LOCATE 1,12:PRINT STRINGE (197,143)3 4,25,253,5,253,5,284,5,319,20,319,5,253, 
3250 EI:RETURN 10 j 
325860 FOR i=i11 TO 13 STE 2 3350 DATA 213,10,213,5,239,20,319,5,253, 
3270 LOLCATE 1,isPRINT STRING$(19,14333 5,239,5,213,10,253,10,319,10,284,10,319, 
3280 NEXT:EI:RETURN 25,1,1 i 
3290 ' ##4*#+ Melodie ####+ 3370 RESTORE 33401 okt !=okt !/1.5 
3500 READ hoeshe,„dauer 3350 IF okt!<0.35 THEN okt!n2 
3310 IF hoehe=ti THEN 33570 3370 BOTO 3300 
CHECK Vi: PRUEFBUMMEN:} 450- 460: 19332 1590- 15001 15781 2750- 2750: 20941 
470=- 480: 10247 1510- 1820: 74092 2770- 2780: 65109 
ZEILENNR.ı SUMMEN 490- 5001 42421 1630- 1640: 40418 2790- 2800: B189 
ä 10- 20: 12310 s10- 520: 18812 1850—- 16601 5045 z2810- 2820: 44262 
30- 4011152853 530- 540: 44457 1670- 16901 69157 2830- 2840: 27821 
So 680: 35870 350- 540: 59271 15470- 17001 22094 Z2850- 2840: 8155 
70- 80: 85399 570- 580: BROZY 1710- 1720: 80582 . 2870- 2880: 17880 
70- 100: 17497 590- 600: 40208 1730- 1740: 84441 2890- 2900: 96459 
110- 120: 27387 &10- 820: 77546 1750- 1760: 32708 2F710- 2920: B0658 
130- 130: 36865 630- 440: 50445 1770- 1780: 51204 2930- 2940: 256439 
150- 180: 71709 650- 660: 69697 1770- 18001 23993 2950- 2940; 40521 
170- 180: 45399 &70- 575: 13751 19810- 1820: 27317 2970- 2990: 34120 
190- 200: 518506 &80- 6901 42349 1830- 18403 #405 2990- 3000: 72979 
210- 220: 51469 700- 710: 81843 1850- 18403 47667 S010- 30205 46594 
250- 240: 16404 720- 730: 38548 1870- 1880: 67051 3050- 30401 55342 
250- 260: 7185 . F40= 750: 975364 1840- 1900: 43448 SO50- 3080: 2895 
270=- 2850: 83254 780- 7701 27137 1910- 19720: Z1621 3070- 30980:1219747- 
270- 300: 52154 780- 7901 4263 1930- 19401 47077 3070- 3100: 38288 
S10- 320: 210640 800- 810: 86300 1950- 19601 17652 3110- 3120; 315537 
330- 340: 30809 820- 825: 16027 1970- 1980: 49266 3130- 3140: 53482 - 
350- 360: 55860 950- 840: 34488 1990- 2000: 71544 3150- 3180: 13950 
370- 380: 55431 850- Badı, 83424 2010- 2020: 10430 3170- 3180: 49970 
370- #200: 54000 870- BE0r 42410 2030- 2040: 45157 -  3190- 3200: 35084 
410=- 420: 10459 B70- 9009: 408973 2050- 2060: 75134 s210- 3220: 27383 
430- 440: 70517 ' #10- 920: 32792 2070- 2080: 54579 3230- 3240: 49590 
i 730- 940ı 4589 2090- 2100: 1941& 3250- 3260: 11457 
750- 960: 2954 2110- 2120: 69719 3270- 3280: 17947 
CHECK Vi1:PRUEFSUMMEN: grUü- Wü 46255 2130- 2140: 24710 3290- 33001 32792 
7970- 10001 67574 2150- 2160: &2851 . 3310- 3320: 62315 
ZEILENNR.: SUMMEN 10610- 10201 29679 2170- 2180: 4357% 3330- 3340: 54123 
'10- 20: 56522 1050- 10401 7382 2170- 22001 48265 3350- 3360: 24559 
30- 30: 37428 1050- 10601 47707 2210- 2220: 80894 3370- 3390: 59503 
50- &0: 51320 1070- 10805 635152 _ 2230- 22401 80974 3390- ı 1222 
' 70- 80: 17983 1070- 11001 41584 2250- 22603 49326 | ---------- 4. Hmm 
90- 100: 27843 1110- 1120: 81082 2270- 22801 7908 GESAMTCHECKSUMME: 21294 
110=- 120: B934 1150- 11401 29172 2290- 23003 39094 
130- 140: 20857 1150- 11601 &5171 2310- 2320: &4B10 
150- 1680: 1215 1170- 1180s 979245 2330- 2340: 56414 
170- 180: 20491 11909- 1200: 32731 2350- 23804 256065 
190- 200: 243590 1210- 12201 59406 2370- 2380: #293 
210- 220: 41995 1230- 1240: 45181 . 2370- 2400ı 8332 
2350- 240: 18223 1250- 1250; 53507 2410- 24203 11636 
250- 250: 22755 1270” 12801 47202 2430- 2440: 27069 
270- 2801 49841 1290- 13001 42005 2450- 7480: &293 
290- 3001 17244 : 1310- 13208 87017 2470=- 2480: Z587B 
S10- 320: 31364 13350- 1340: 17954 2490- 2500: 52300 
350- 340: 30905 1350- 1340: 29745 2510- 2520: 277848 
350- I6dı 47249 13570- 1380: &0tl& 2530- 2540: 22458 
370- 380: 29403 E370- 1400: 13946 25506- 2560: 22708 
350- 400: 49183 1410- 1420: 17971 2570- 2580: 226493 
410=- 420; 51354 1430- 144604 18701 2590- 2800: 22424 
430=- 440: 76454 1450- 1480: 52479 2610- 2202 272699- 
450- 460: Zh8dl 1470- 14801 73959 2630- 2640: 22424 
470- #B0: 28784 1490- 15001 33784 2450- 265403 22708 
490- 500: 28484 1510- 1520: 53270 2870- 2680: 226997 
510- 520: 706 1530- 15404 13800 2690- 2700: 2269% 
Seen sau Een 1550- 15601 16964 2710- 27201 27864 
BESANTCHECKSUMME: 41550 1579- 15801 12001 2730- 2740; 16230 
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„werkstatt 





In dieser Ausgabe veröffentlichen wir un- 
ter der Rubrik Werkstatt ein Programm zur 
Steuerung der wohl am häufigsten ge- 
brauchten Funktionen des Druckers „NLO 
401“. Es umfaßt insgesamt 14 Befehle zur 
Steuerung und stellt eine wesentliche Er- 
leichterung beim Einsatz des Original- 
Schneiderdruckers dar. 


Die Syntax der einzelnen Befehle, sowie 
deren Auswirkungen oder Funktionen 
sind im Basic-Listing dargestellt. 


Beim Aufruf eines Befehls wird zunächst 
der Druckerstatus abgefragt. Ist der Druk- 
ker nicht eingeschaltet, beginnt der Bild- 
schirmrand zu blinken. Dies setzt sich so- 


lange fort, bis entweder der Drucker emp- 
fangsbereit ist, oder aber die „ESC-Taste“ 
gedrückt wird. Danach wird die alte Bor- 
derfarbe wieder eingestellt. 

Die Befehle dieses Programmes ersetzen 
die umständliche Eingabe der „CHRS$-Fol- 
gen“ und erspart somit auch das Suchen 
im Handbuch. 


ü FEBREKKRERTHFE FT NT HH RN HN ERKENNEN HR RI HH IH 


100 

110 8% Basic-Befehle zur Druckersteuerung Er: 

120 "ar HK 

150 ur 'INLG -> NLG einschalten RR 

140 #08 IHERVORUOFF -> Zeichenhervorhebung aus #+* 

150 '#8# ıDOrA -=> Doppelanschlag einschalten Ex 
180 '##%# !NDRMAL -?> Emtwurfsdruck #E% 

170 '#8# ISMALL -= Zeichenverdichtung ein E%% 

180 '### ISMALLOFF -> Zeichenverdichtung aus #8 

10 Ka !LINE -> Unterstreichen ein RR 

200. ER !LINEOFF -> Unterstreichen aus RER 

210 '#x%* !ILARGE -> Zeichenvergroesserung ein ar 

2PO 'HH* !LARGEOFF -> Zeichenvergrossserung aus “4% 

250 '### IHERVOR -> Zeichenhervorhebung ein Hu 

240 #8 TIUMLAUTE -> Zeichensatz 7 tenthaelt Umlaute ### 

250 '##  TASCII -> Zeichensatz 1 | #r% 

260 '88* 'ABSTAND,x -> Zeilenabstand einstellen ARE 

270 88% ergibt 17% Zoll Zeilenabstand *#% 

zB0 #8 !ABSTAND,& ergibt z.E. 1/6 Zoll Zeilensbstand + 

290 8% {x muss eine Zahl zwischen 1 und 72 sein ! ) *% 

500 "## ##+ 

=10 '’##* MC kann mit SAVE "DRUCKBEF",B,&A400,&160 gesaved werden ##% 

Bcprel  Ze © SZ Er 

330 #88 {03 Wolfgang Eoenigk Osnmabrueck ER 

FROHES 

aa" 

560 MODE 1:LOCATE 5,10 

579 MEMORY &ASFF 2: adr=&AgOo 

=80 WHILE a$<>"ende" 

390 READ as 

400 a=V AL CR" +ak) 

410 POKE adr+i,a 

420 sum=sum+ta : ji=i+il 

430 WEND 

440 IF sum 23743 THEN FRINT"Fehler in DATAs !"ıEND 


b2 


450 
450 


EALL &AIOO 


FRINT"Die Befehle sind geiaden !" 


 Compuhe mi 
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21,84,A4,01,09,A4,03,D1,BC,35,A4,03,BE,A4,03,95,44,03,90,R4 
C3,A3,A4, C3,AA,A4,C3,B1,A4,C3,BB,A4,C3,BF,A4,C03,C6,A84,C035,CD 
A4,03,D4,n4 ‚C3_DR, A4,03 E2.AA, 03,E9,A4,4E,4C0,D1,44,4F ,50,C1 
AE,4F,52,4D,41,00,53,40,41,40.00.53,4D,41 40.40. AF, 45,065,4C 
49,4E,05,40,49,4E,45,4F ,46,C06,40,41,52,47,05,40,41,52,47, 45 
AF ,46,06,48,45,52,56,4F,D2,48,45,52,56,4F „52, 4F ,46,06,55,4D 
4C,41,55,54,05,41,53,43,49,09,41,42,55,54,41,4E,04,00,00.00 
00,00,21,42,A5,06,04,18,6D,21,46,A5,06,04,18,66,21,49,05,06 
04,18,5F,21,4E,A5,06,01,18,58,21,4F ,A5,06,01,18,51,21,50,65 
06,02,18,44,21,52,A5,064,02,18,43,21,54,45,05,02,18,30,21,56 
AS5,06,02,18,35,21,58,A5,06,01,18,2E,21,59,A5,06,01,18,27,21 
5A,A5,06,01,18,20,21,55,45,06,01,18,17,FE,01,C0,DD,SE,00,16 
00,21,48,00,CD,C1,BD,7D,32,5D,A5,21,5C,A5,08,04,18,00,E5,05 
Z1,FF,OF,CD,2E,BD,30,27,2B,7C,FE,00,70,F5,CD,53B,BC,C5,01,18 
01,CD,38,BC,CD,2E,ED,30,0E,3E,42,CD,1E,BB,28,F4,C1,CD,38,BC 
C1,E1,69,01,0D,38,BC,C1,E1,3E,1B,CD,2B,BD,7E,CD,2B,ED,23,10 
F9,C9,49,03,1B,48,47,1B,49,01,49,01,1B,48,0F ,12,2D,01,2D,00 . 
57,01,57,00,45,44,36,37,41,00,1B,32 ende 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


CHECK Vi: FRUEFSUMMEN: 200- 
220- 
240- 
2u0- 
ZB0- 
300- 
320- 
340- 


2108 
2303 


520” 
540- 
560- 
580- 
400- 
620- 


5303 
5503 
5708 
5roı 
610% 
630: 


44063 
s5977& 
58354 
509791 
60569 
756677 


58074 
83788 
259: 54249 
270: 43743 
2901118812 
3101 25031 
330: 354812 
3501 279770 


15927 
11125 
34650 
536357 
62447 
34282 
75027 
71307 


ZEILENNR, + 
100- 110: 
120- 130: 
140- 150: 
160- 1708 
180- 1903 


SUMMEN 
j=k7-7-729 
57140 
87047 
B9587 
42319 


Bei dem Programm „Demon 
Attack“ aus Heft 11/85 war aus 


drucktechnischen Problemen ei- 
| ne Zahl in der Programmzeile 30 


62928 


Möchten Sie nicht auch einmal gern in die Datenbanken der 
- Versicherung oder öffentlichen Einrichtungen einbrechen. 


von Thomas Amman und Matthias Lehn- 
hardt 


Bei dem Titel dieses Buches könnte man 
- vermuten, hier den Einstieg in die „Gom- 
. puter-Kriminalität“ zu erhalten. Ganz so ist 


es aber nicht, Die Autoren führen uns die 
„Arbeitsweise“ der Hacker vor und geben 
uns einen Einblick wie’s gemacht wird. 
Sie setzen sich aber auch mit dem Thema 
auseinander, was es dem Einzelnen über- 
haupt bringt und ob auch Sie hacken kön- 
| - nen. Es ist ein sehr unterhaltsames, infor- 
matives und kritisches Buch, das nicht 
nur Computerfreude begeistern wird. Hier 
wird die Biographie der Hacker und die 
Chronologie des Hackens dargestellt. 
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nicht zu erkennen. Die fehlende 
Zahl lautet: 
a2 


Wir bilten diese technische Panne zu ent- 
sehuldigen. - 

Außerdem weisen wir nochmals daraufhin, daß 
jeder Leser bei Problemen mit eingetippten Pro- 
grammen jederzeit die Hilfe unserer Program- 
mierabteilung in Anspruch nehmen kann. 
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FORGETS! 


‚Speichern und Drucken. Fehlerlos. Mit 109% Sicherheit: 
das ist Elephant Memory Systems’”. 
Unter diesem Markennamen erhalten Sie hochwertiges Zubehör 
für perfekt arbeitende Kommunikations-Systerne der Text- 
und Datenverarbeitung - wie Disketten, Farbbänder, Farbband- 
kassetten und Spezialreinigungsmittel.. 
Kompromiß ist Risiko. Zweite Wahl ist Unsicherheit — deshalb: 
verlangen Sie Elephant Memory Systerns'"., 


c==ı ELEPHANTNEVER FORGETS. 


MARCOM Computerzubehör GmbH 

ME Podbielskistraße 321, 3000 Hannover 51, Te (0519 647420 . 

Frankreich: Soroclass, 8, Rue Montgalfier - 93115, Rosny-Sous-Bois, Tel.: 16 (1) 855-73-70 
Großbritannien: Dennison Mg. Go, Ud., Cotoniat Way, Watlord WD2 AJY, Tel.: 0923 41244, Telex: 923321 


Katlen: King mMec s.p.a. ° Via Regie Parco 108 - 10035 Settimo Toringse 
Weiteres Ausland: Dennison international Company, 4906 Erkrath 1, Natfhias-Claudius-Straße 9, Telex: 858 6600 
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